mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 07:54:37 +00:00
1404 lines
27 KiB
Plaintext
1404 lines
27 KiB
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
.LIST OFF
|
||
*/--------------------------------------
|
||
* # Socket
|
||
* Create a new socket
|
||
* ## C
|
||
* `hFD socket(short int type, short int protocol);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHB protocol`
|
||
* `lda type`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.socket`
|
||
* ## RETURN VALUE
|
||
* CC: A = hSOCKET
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.Socket tax
|
||
>PULLA get protocol (RAW)
|
||
SKT.Socket.I jmp (J.SKT.Socket,x)
|
||
|
||
SKT.Socket.RAW ldy #S.SOCKET
|
||
bra SKT.Socket.DSOCK
|
||
SKT.Socket.DGRAM
|
||
lda #S.IP.PROTOCOL.UDP
|
||
ldy #S.SOCKET
|
||
bra SKT.Socket.DSOCK
|
||
SKT.Socket.SEQPACKET
|
||
lda #S.IP.PROTOCOL.TCP
|
||
ldy #S.SOCKET.TCP
|
||
SKT.Socket.DSOCK
|
||
stx FD.DSOCK+S.SOCKET.T save type
|
||
sta FD.DSOCK+S.SOCKET.PROTO ICMP,UDP,TCP
|
||
lda #0 Y = socket.size
|
||
>SYSCALL GetMem0
|
||
bcs .9
|
||
>STYA ZPTmpPtr1
|
||
|
||
jsr SKT.Socket.FindFree
|
||
bcs .9
|
||
|
||
ldy #FD.DSOCK.SIZE-1
|
||
|
||
.1 lda FD.DSOCK,y
|
||
sta (ZPTmpPtr1),y
|
||
dey
|
||
bpl .1
|
||
|
||
txa
|
||
clc
|
||
.9 rts
|
||
SKT.Socket.STREAM
|
||
lda #S.IP.PROTOCOL.TCP
|
||
ldy #S.SOCKET.TCP
|
||
|
||
stx FD.SSOCK+S.SOCKET.T save type
|
||
sta FD.SSOCK+S.SOCKET.PROTO
|
||
lda #0 Y = socket.size
|
||
>SYSCALL GetMem0
|
||
bcs .9
|
||
>STYA ZPTmpPtr1
|
||
|
||
jsr SKT.Socket.FindFree
|
||
bcs .9
|
||
|
||
ldy #FD.SSOCK.SIZE-1
|
||
|
||
.1 lda FD.SSOCK,y
|
||
sta (ZPTmpPtr1),y
|
||
dey
|
||
bpl .1
|
||
|
||
txa
|
||
clc
|
||
.9 rts
|
||
SKT.Socket.FindFree
|
||
ldy #0
|
||
|
||
.1 lda SKT.TABLE,y
|
||
beq .2
|
||
iny
|
||
cpy #K.SKTTABLE.SIZE
|
||
bne .1
|
||
|
||
txa
|
||
>SYSCALL freemem
|
||
lda #E.OOH
|
||
sec
|
||
rts
|
||
|
||
.2 txa
|
||
sta SKT.TABLE,y
|
||
clc
|
||
rts
|
||
*/--------------------------------------
|
||
* # Bind
|
||
* bind a name to a socket
|
||
* ## C
|
||
* `int bind(hFD fd, const struct sockaddr *addr);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHW addr`
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.socket`
|
||
* ## RETURN VALUE
|
||
* CC: A = hSOCKET
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.bind >SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
jsr SKT.PullLocAddr
|
||
|
||
lda SKT.LOC.ADDR+S.SOCKADDR.PORT
|
||
bne .1
|
||
ldx SKT.LOC.ADDR+S.SOCKADDR.PORT+1
|
||
bne .1
|
||
|
||
jsr GetDynPort
|
||
|
||
sta SKT.LOC.ADDR+S.SOCKADDR.PORT
|
||
stx SKT.LOC.ADDR+S.SOCKADDR.PORT+1
|
||
|
||
.1 ldx #0
|
||
|
||
.2 lda SKT.TABLE,x
|
||
beq .7
|
||
|
||
phx
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPTmpPtr1
|
||
plx
|
||
|
||
ldy #S.SOCKET.AF
|
||
lda (ZPTmpPtr1),y
|
||
cmp #AF.INET
|
||
bne .7
|
||
|
||
ldy #S.SOCKET.LOC.ADDR
|
||
|
||
.3 lda (ZPTmpPtr1),y
|
||
cmp SKT.LOC.ADDR+S.SOCKADDR.ADDR-S.SOCKET.LOC.ADDR,y
|
||
bne .7
|
||
iny
|
||
cpy #S.SOCKET.LOC.PORT+2
|
||
bne .3
|
||
|
||
lda #ERR.SKT.BUSY
|
||
* sec
|
||
rts
|
||
|
||
.7 inx
|
||
cpx #K.SKTTABLE.SIZE
|
||
bne .2
|
||
|
||
jmp SKT.SetLocAddr
|
||
*/--------------------------------------
|
||
* # Connect
|
||
* Initiate a connection on a socket
|
||
* ## C
|
||
* `int connect(hFD fd, const struct sockaddr *addr);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHW addr`
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.socket`
|
||
* ## RETURN VALUE
|
||
* CC: A = hSOCKET
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.connect >SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
|
||
jsr SKT.PullRemAddr
|
||
|
||
ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
jmp (J.SKT.connect,x)
|
||
SKT.connect.RAW
|
||
SKT.connect.DGRAM
|
||
jmp SKT.SetRemAddr
|
||
SKT.connect.STREAM
|
||
SKT.connect.SEQPACKET
|
||
jsr SKT.SetRemAddr
|
||
jsr SKT.NewTCB
|
||
bcs .99
|
||
lda #S.TCP.OPTIONS.SYN
|
||
jsr TCP.OUT.SendOptA Send SYN
|
||
bcs .9
|
||
|
||
lda #S.SOCKET.TCP.S.SYNSENT
|
||
jmp SKT.StoreTCB.S
|
||
|
||
.9 lda #ERR.SKT.BAD
|
||
sec
|
||
.99 rts
|
||
*/--------------------------------------
|
||
* # Listen
|
||
* Listen for connections on a socket
|
||
* ## C
|
||
* `int listen(hFD fd);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.listen`
|
||
* ## RETURN VALUE
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.listen >SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
|
||
ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.T.SEQPACKET+1
|
||
bcc .9
|
||
|
||
ldy #S.SOCKET.TCP.S
|
||
lda (ZPPtrSKT),y
|
||
bne .9
|
||
|
||
lda #S.SOCKET.TCP.S.LISTEN
|
||
sta (ZPPtrSKT),y
|
||
|
||
ldy #S.SOCKET.O
|
||
lda #S.SOCKET.O.ACCEPTCONN
|
||
sta (ZPPtrSKT),y
|
||
|
||
clc
|
||
rts
|
||
|
||
.9 lda #ERR.SKT.BAD
|
||
sec
|
||
rts
|
||
*/--------------------------------------
|
||
* # Accept
|
||
* Accept a connection on a socket
|
||
* ## C
|
||
* `hFD Accept(hFD fd);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.accept`
|
||
* ## RETURN VALUE
|
||
* A = hSocket
|
||
*\--------------------------------------
|
||
SKT.Accept >SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
|
||
ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
and #S.SOCKET.O.ACCEPTCONN
|
||
beq .99
|
||
|
||
ldy #S.SOCKET.HQ.TAIL
|
||
lda (ZPPtrSKT),y
|
||
ldy #S.SOCKET.HQ.HEAD
|
||
cmp (ZPPtrSKT),y
|
||
beq .9 CS
|
||
|
||
pha
|
||
inc
|
||
cmp #S.SOCKET.HQ.MAX
|
||
bne .1
|
||
|
||
lda #0
|
||
|
||
.1 ldy #S.SOCKET.HQ.TAIL
|
||
sta (ZPPtrSKT),y
|
||
pla
|
||
clc
|
||
adc #S.SOCKET.HQ
|
||
tay
|
||
lda (ZPPtrSKT),y
|
||
clc
|
||
rts
|
||
|
||
.99 lda #ERR.SKT.BAD
|
||
sec
|
||
.9 rts
|
||
*/--------------------------------------
|
||
* # Shutdown
|
||
* Close socket
|
||
* ## C
|
||
* `int shutdown(int fd);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.shutdown`
|
||
* ## RETURN VALUE
|
||
*\--------------------------------------
|
||
SKT.shutdown pha
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
|
||
ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
and #S.SOCKET.O.ACCEPTCONN
|
||
bne SKT.shutdown.LISTEN
|
||
|
||
ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
jmp (J.SKT.shutdown,x)
|
||
SKT.shutdown.LISTEN
|
||
SKT.shutdown.RAW
|
||
SKT.shutdown.DGRAM
|
||
SKT.shutdown.SEQPACKET
|
||
.1 ldy #S.SOCKET.HQ.TAIL
|
||
lda (ZPPtrSKT),y
|
||
ldy #S.SOCKET.HQ.HEAD
|
||
cmp (ZPPtrSKT),y
|
||
beq .3 No frame in Queue, close..
|
||
|
||
pha save tail...
|
||
clc
|
||
adc #S.SOCKET.HQ
|
||
tax
|
||
pla
|
||
inc
|
||
cmp #S.SOCKET.HQ.MAX
|
||
beq .2
|
||
|
||
lda #0
|
||
|
||
.2 ldy #S.SOCKET.HQ.TAIL
|
||
sta (ZPPtrSKT),y
|
||
|
||
txa
|
||
tay
|
||
lda (ZPPtrSKT),y
|
||
>SYSCALL FreeMem
|
||
bra .1
|
||
|
||
.3 pla get hFD...
|
||
|
||
ldx #0
|
||
|
||
.4 cmp SKT.TABLE,x
|
||
beq .5
|
||
|
||
inx
|
||
cpx #K.SKTTABLE.SIZE
|
||
bne .4
|
||
|
||
.5 stz SKT.TABLE,x
|
||
>SYSCALL freemem
|
||
clc
|
||
rts
|
||
SKT.shutdown.STREAM
|
||
pla
|
||
jsr SKT.GetTCB
|
||
|
||
ldy #S.SOCKET.TCP.S
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.TCP.S.ESTBLSH
|
||
bne .1
|
||
|
||
lda #S.TCP.OPTIONS.FIN+S.TCP.OPTIONS.ACK
|
||
jsr TCP.OUT.SendOptA
|
||
bcs .9
|
||
|
||
lda #S.SOCKET.TCP.S.FINWT1
|
||
jmp SKT.StoreTCB.S
|
||
|
||
.1 cmp #S.SOCKET.TCP.S.TIMEWT
|
||
beq .8
|
||
lda #S.TCP.OPTIONS.RST+S.TCP.OPTIONS.ACK
|
||
jsr TCP.OUT.SendOptA
|
||
bcs .9
|
||
|
||
lda #S.SOCKET.TCP.S.TIMEWT
|
||
jmp SKT.StoreTCB.S
|
||
.8 clc
|
||
.9 rts
|
||
*/--------------------------------------
|
||
* # Read (STREAM)
|
||
* ## C
|
||
* `int skt.read(hFD fd, void *buf, int count);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHWI count`
|
||
* `>PUSHW buf`
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.skt.read`
|
||
* ## RETURN VALUE
|
||
* CC: Y,A = bytes read
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.Read jsr SKT.PullhFDDataInPtrLen
|
||
|
||
ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.T.STREAM
|
||
bne .90 bad skt
|
||
|
||
ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
and #S.SOCKET.O.ACCEPTCONN
|
||
bne .90 Bad Skt
|
||
|
||
ldy #S.SOCKET.TCP.S
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.TCP.S.ESTBLSH
|
||
bcc .92 Not yet established...no data
|
||
cmp #S.SOCKET.TCP.S.FINWT2
|
||
bcs .91 closing...IO err
|
||
|
||
jsr SKT.GetDataFromSktIn
|
||
rts if CS, No data...
|
||
|
||
.90 lda #ERR.SKT.BAD
|
||
sec
|
||
rts
|
||
|
||
.91 lda #MLI.E.IO
|
||
sec
|
||
rts
|
||
|
||
.92 lda #0
|
||
sec
|
||
.99 rts
|
||
*/--------------------------------------
|
||
* # Write (STREAM)
|
||
* ## C
|
||
* `int skt.write(hFD fd, const void *buf, int count);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHWI count`
|
||
* `>PUSHW buf`
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.skt.write`
|
||
* ## RETURN VALUE
|
||
* CC: Y,A = bytes written
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.Write jsr SKT.PullhFDDataInPtrLen
|
||
|
||
ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.T.STREAM
|
||
bne .99
|
||
|
||
ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
and #S.SOCKET.O.ACCEPTCONN
|
||
bne .99
|
||
|
||
ldy #S.SOCKET.TCP.S
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.TCP.S.ESTBLSH
|
||
bcc .90 Not yet established...no data
|
||
bne .91
|
||
|
||
jsr SKT.AddDataToSktOut will call SKT.GetTCB
|
||
bcs .90
|
||
|
||
jsr TCP.OUT.I SKT.GetTCB called, try to push, ignore error....
|
||
clc
|
||
rts
|
||
|
||
.90 lda #0 no data transfered
|
||
sec
|
||
rts
|
||
|
||
.91 lda #MLI.E.IO
|
||
sec
|
||
rts
|
||
|
||
.99 lda #ERR.SKT.BAD
|
||
sec
|
||
rts
|
||
*/--------------------------------------
|
||
* # Recv (RAW,DGRAM,SEQPACKET)
|
||
* # RecvFrom (RAW,DGRAM,SEQPACKET)
|
||
* ## C
|
||
* `hMem recv(hFD fd);`
|
||
* `hMem recvfrom(hFD fd, struct sockaddr *addr);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHW addr` (RecvFrom)
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.skt.Recv`
|
||
* ## RETURN VALUE
|
||
* CC: A = hMem
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.RecvFrom pha
|
||
>PULLW ZPTmpPtr1 addr
|
||
pla
|
||
sec
|
||
.HS 90 BCC
|
||
SKT.Recv clc
|
||
php
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
|
||
ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
cmp #S.SOCKET.T.STREAM
|
||
beq .99
|
||
|
||
ldy #S.SOCKET.HQ.TAIL
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
|
||
ldy #S.SOCKET.HQ.HEAD
|
||
cmp (ZPPtrSKT),y
|
||
beq .90
|
||
|
||
inc
|
||
cmp #S.SOCKET.HQ.MAX
|
||
bne .1
|
||
lda #0
|
||
|
||
.1 ldy #S.SOCKET.HQ.TAIL
|
||
sta (ZPPtrSKT),y
|
||
|
||
txa
|
||
clc
|
||
adc #S.SOCKET.HQ
|
||
tay
|
||
lda (ZPPtrSKT),y
|
||
plp
|
||
bcc .9 Exit with CC and A=hFrame
|
||
|
||
pha
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPFrameInPtr
|
||
|
||
ldy #S.IP.SRC
|
||
|
||
.2 lda (ZPFrameInPtr),y
|
||
sta SA.REMOTE+S.SOCKADDR.ADDR-S.IP.SRC,y
|
||
iny
|
||
cpy #S.IP.SRC+4
|
||
bne .2
|
||
|
||
ldy #S.IP.PROTOCOL
|
||
lda (ZPFrameInPtr),y
|
||
cmp #S.IP.PROTOCOL.ICMP
|
||
bne .3
|
||
|
||
ldy #S.ICMP.IDENTIFIER
|
||
bra .7
|
||
|
||
.3 cmp #S.IP.PROTOCOL.TCP
|
||
beq .6
|
||
cmp #S.IP.PROTOCOL.UDP
|
||
bne .8
|
||
|
||
.6 ldy #S.TCPUDP.SRCPORT
|
||
|
||
.7 lda (ZPFrameInPtr),y
|
||
sta SA.REMOTE+S.SOCKADDR+1
|
||
iny
|
||
lda (ZPFrameInPtr),y
|
||
sta SA.REMOTE+S.SOCKADDR
|
||
|
||
.8 lda #S.SOCKADDR-1
|
||
|
||
.80 lda SA.REMOTE,y
|
||
sta (ZPTmpPtr1),y
|
||
dey
|
||
bpl .80
|
||
|
||
pla
|
||
clc
|
||
.9 rts
|
||
|
||
.99 plp
|
||
lda #ERR.SKT.BAD
|
||
sec
|
||
rts
|
||
|
||
.90 plp
|
||
lda #0 no data
|
||
sec
|
||
rts
|
||
*/--------------------------------------
|
||
* # Send (RAW,DGRAM,SEQPACKET)
|
||
* # SendTo (RAW,DGRAM,SEQPACKET)
|
||
* ## C
|
||
* `int skt.send(hFD fd, const void *buf, int count);`
|
||
* `int skt.sendto(hFD fd, const void *buf, int count, const struct sockaddr *addr);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHW addr` (SendTo)
|
||
* `>PUSHWI count`
|
||
* `>PUSHW buf`
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.skt.send`
|
||
* ## RETURN VALUE
|
||
* CC: Y,A = bytes written
|
||
* CS: A = EC
|
||
*\--------------------------------------
|
||
SKT.SendTo sec
|
||
.HS 90 BCC
|
||
SKT.Send clc
|
||
php
|
||
jsr SKT.PullhFDDataInPtrLen
|
||
plp
|
||
bcc .1
|
||
jsr SKT.PullRemAddr
|
||
jsr SKT.SetRemAddr
|
||
.1 ldy #S.SOCKET.T
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
jmp (J.SKT.send,x)
|
||
*--------------------------------------
|
||
SKT.Send.RAW ldy #S.SOCKET.PROTO
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
>LDYA ZPDataInLen
|
||
jsr FRM.NewIP
|
||
bcs SKT.Send.9
|
||
bra SKT.Send.DGRAM.8
|
||
*--------------------------------------
|
||
SKT.Send.DGRAM ldx #S.IP.PROTOCOL.UDP
|
||
>LDYA ZPDataInLen
|
||
jsr FRM.NewIP
|
||
bcs SKT.Send.9
|
||
jsr SKT.SetFrameOutTCPUDPPorts
|
||
SKT.Send.DGRAM.8
|
||
jsr SKT.SetFrameOutDstIP
|
||
jsr SKT.CopyDataInToOut
|
||
jmp FRM.SendIP
|
||
*--------------------------------------
|
||
SKT.Send.STREAM lda #ERR.SKT.BAD
|
||
sec
|
||
SKT.Send.9 rts
|
||
*--------------------------------------
|
||
SKT.Send.SEQPACKET
|
||
bra *
|
||
*/--------------------------------------
|
||
* # GetSockOpt
|
||
* Set Socket Options
|
||
* ## C
|
||
* `int getsockopt(hFD fd);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.GetSockOpt`
|
||
* ## RETURN VALUE
|
||
*\--------------------------------------
|
||
SKT.getsockopt >SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
* clc
|
||
rts
|
||
*/--------------------------------------
|
||
* # SetSockOpt
|
||
* Set Socket Options
|
||
* ## C
|
||
* `int setsockopt(hFD fd, short int opts);`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>PUSHWI opts`
|
||
* `lda fd`
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.SetSockOpt`
|
||
* ## RETURN VALUE
|
||
*\--------------------------------------
|
||
SKT.setsockopt >SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
>PULLA
|
||
ldy #S.SOCKET.O
|
||
ora (ZPPtrSKT),y
|
||
sta (ZPPtrSKT),y
|
||
* clc
|
||
rts
|
||
*/--------------------------------------
|
||
* # GetTable
|
||
* Get socket table
|
||
* ## C
|
||
* `void * gettable();`
|
||
* ## ASM
|
||
* **In:**
|
||
* `>LIBCALL hLIBTCPIP,LIBTCPIP.GetTable`
|
||
* ## RETURN VALUE
|
||
*\--------------------------------------
|
||
SKT.GetTable >LDYA L.SKT.Table
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
SKT.PullhFDDataInPtrLen
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
>PULLW ZPDataInPtr !!!DataOut trashed when sending ACK in TCP.OUT
|
||
>PULLW ZPDataInLen !!!use DataInPtr/Len
|
||
rts
|
||
*--------------------------------------
|
||
SKT.PullLocAddr >PULLW ZPTmpPtr1
|
||
ldy #S.SOCKADDR-1
|
||
.1 lda (ZPTmpPtr1),y
|
||
sta SKT.LOC.ADDR,y
|
||
dey
|
||
bpl .1
|
||
rts
|
||
*--------------------------------------
|
||
SKT.PullRemAddr >PULLW ZPTmpPtr1
|
||
ldy #S.SOCKADDR-1
|
||
.1 lda (ZPTmpPtr1),y
|
||
sta SKT.REM.ADDR,y
|
||
dey
|
||
bpl .1
|
||
rts
|
||
*--------------------------------------
|
||
SKT.SetLocAddr ldy #S.SOCKET.LOC.PORT+1
|
||
.1 lda SKT.LOC.ADDR+S.SOCKADDR.ADDR-S.SOCKET.LOC.ADDR,y
|
||
sta (ZPPtrSKT),y
|
||
dey
|
||
cpy #S.SOCKET.LOC.ADDR
|
||
bcs .1
|
||
rts
|
||
*--------------------------------------
|
||
SKT.SetRemAddr ldy #S.SOCKET.REM.PORT+1
|
||
.1 lda SKT.REM.ADDR+S.SOCKADDR.ADDR-S.SOCKET.REM.ADDR,y
|
||
sta (ZPPtrSKT),y
|
||
dey
|
||
cpy #S.SOCKET.REM.ADDR
|
||
bcs .1
|
||
rts
|
||
*--------------------------------------
|
||
SKT.FindMatchingLocRem
|
||
.DO IPDEBUG=1
|
||
jsr FRM.Dump
|
||
.FIN
|
||
ldx #0
|
||
|
||
.1 lda SKT.TABLE,x
|
||
beq .8
|
||
|
||
phx
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPPtrSKT
|
||
.DO IPDEBUG=1
|
||
jsr SKT.Dump
|
||
.FIN
|
||
plx
|
||
|
||
ldy #S.SOCKET.AF
|
||
lda (ZPPtrSKT),y
|
||
cmp #AF.INET
|
||
bne .8
|
||
|
||
ldy #S.SOCKET.LOC.ADDR
|
||
|
||
.2 lda (ZPPtrSKT),y
|
||
bne .4
|
||
|
||
ldy #S.SOCKET.LOC.PORT bound to 0.0.0.0,check only LOC port
|
||
|
||
.3 lda (ZPPtrSKT),y
|
||
|
||
.4 cmp SKT.LOC.ADDR+S.SOCKADDR.ADDR-S.SOCKET.LOC.ADDR,y
|
||
bne .8
|
||
iny
|
||
cpy #S.SOCKET.LOC.PORT+2
|
||
bne .3
|
||
|
||
ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
and #S.SOCKET.O.ACCEPTCONN
|
||
beq .6
|
||
|
||
ldy #S.TCP.OPTIONS Listening, only SYN packet....
|
||
lda (ZPFrameInPtr),y
|
||
cmp #S.TCP.OPTIONS.SYN
|
||
beq .7 SYN recieved on a LISTEN socket, ok
|
||
bne .8 bad packet for this listening
|
||
|
||
.6 lda SKT.REM.ADDR+S.SOCKADDR.ADDR
|
||
|
||
cmp #$ff FF.FF.FF.FF, Broadcast ?
|
||
bne .41
|
||
* ldy #S.SOCKET.O
|
||
lda (ZPPtrSKT),y
|
||
and #S.SOCKET.O.BROADCAST
|
||
beq .9 this socket does not accept broadcast
|
||
|
||
bra .43
|
||
|
||
.41 ldy #S.SOCKET.REM.ADDR
|
||
|
||
.5 lda (ZPPtrSKT),y
|
||
|
||
cmp #$ff accept 255.255.255.255 ?
|
||
bne .42
|
||
|
||
.43 ldy #S.SOCKET.REM.PORT Boradcast, check port only
|
||
|
||
.42 lda (ZPPtrSKT),y
|
||
|
||
cmp SKT.REM.ADDR+S.SOCKADDR.ADDR-S.SOCKET.REM.ADDR,y
|
||
bne .8 wrong remote host, exit....
|
||
iny
|
||
cpy #S.SOCKET.REM.PORT+2
|
||
bne .42
|
||
|
||
.7 stx SKT.Index x = SKT.TABLE index
|
||
clc
|
||
rts
|
||
|
||
.8 inx
|
||
cpx #K.SKTTABLE.SIZE
|
||
bne .1
|
||
|
||
.9 sec
|
||
rts
|
||
*--------------------------------------
|
||
SKT.AddToQueueA pha
|
||
ldy #S.SOCKET.HQ.HEAD
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
inc
|
||
cmp #S.SOCKET.HQ.MAX
|
||
bne .1
|
||
lda #0
|
||
|
||
.1 ldy #S.SOCKET.HQ.TAIL
|
||
cmp (ZPPtrSKT),y
|
||
beq .9 Queue full!!
|
||
|
||
ldy #S.SOCKET.HQ.HEAD
|
||
sta (ZPPtrSKT),y
|
||
txa
|
||
clc
|
||
adc #S.SOCKET.HQ
|
||
tay
|
||
|
||
pla
|
||
sta (ZPPtrSKT),y
|
||
clc
|
||
rts
|
||
|
||
.9 pla dicard hFrame
|
||
* sec
|
||
rts
|
||
*--------------------------------------
|
||
* From TCP.IN
|
||
* Src : ZPDataInPtr/ZPDataInLen
|
||
* Dst : hInMem/INHEAD
|
||
*--------------------------------------
|
||
SKT.AddDataToSktIn
|
||
ldx SKT.Cache+S.SOCKET.TCP.INFREE
|
||
cpx ZPDataInLen
|
||
lda SKT.Cache+S.SOCKET.TCP.INFREE+1
|
||
sbc ZPDataInLen+1
|
||
bcc .9 Not enough room in Q
|
||
|
||
ldy #S.TCP.SEQNUM+3
|
||
ldx #3
|
||
|
||
.10 lda (ZPFrameInPtr),y
|
||
eor SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM,x
|
||
bne .9
|
||
dey
|
||
dex
|
||
bpl .10
|
||
|
||
ldy #S.SOCKET.SQ.hInMem
|
||
lda (ZPPtrSKT),y
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPTmpPtr1 Make ZPTmpPtr1=buffer base
|
||
|
||
lda ZPTmpPtr1
|
||
clc
|
||
adc SKT.Cache+S.SOCKET.TCP.INHEAD
|
||
sta ZPTmpPtr2
|
||
|
||
lda ZPTmpPtr1+1
|
||
adc SKT.Cache+S.SOCKET.TCP.INHEAD+1
|
||
sta ZPTmpPtr2+1 Make ZPTmpPtr2=base+Tail
|
||
|
||
lda ZPDataInLen
|
||
eor #$FF
|
||
tax
|
||
|
||
lda ZPDataInLen+1
|
||
eor #$FF
|
||
pha
|
||
|
||
ldy #0
|
||
|
||
.1 inx
|
||
bne .2
|
||
pla
|
||
inc
|
||
beq .8
|
||
|
||
pha
|
||
|
||
.2 lda (ZPDataInPtr),y
|
||
sta (ZPTmpPtr2)
|
||
iny
|
||
bne .3
|
||
inc ZPDataInPtr+1
|
||
|
||
.3 inc ZPTmpPtr2
|
||
bne .4
|
||
inc ZPTmpPtr2+1
|
||
|
||
.4 inc SKT.Cache+S.SOCKET.TCP.INHEAD
|
||
bne .1
|
||
inc SKT.Cache+S.SOCKET.TCP.INHEAD+1
|
||
lda SKT.Cache+S.SOCKET.TCP.INHEAD+1
|
||
cmp /K.TCP.WSIZE
|
||
bne .1
|
||
stz SKT.Cache+S.SOCKET.TCP.INHEAD+1
|
||
|
||
lda ZPTmpPtr1 Dst Ptr=Buffer Base
|
||
sta ZPTmpPtr2
|
||
lda ZPTmpPtr1+1
|
||
sta ZPTmpPtr2+1
|
||
bra .1
|
||
|
||
.9 sec
|
||
rts
|
||
|
||
.8 >SBC16 SKT.Cache+S.SOCKET.TCP.INFREE,ZPDataInLen
|
||
>ADC16 SKT.Cache+S.SOCKET.TCP.INUSED,ZPDataInLen
|
||
|
||
clc
|
||
|
||
lda SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+3
|
||
adc ZPDataInLen
|
||
sta SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+3
|
||
|
||
lda SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+2
|
||
adc ZPDataInLen+1
|
||
sta SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+2
|
||
bcc .80
|
||
inc SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM+1
|
||
bne .80
|
||
inc SKT.Cache+S.SOCKET.TCP.INLASTSEQNUM
|
||
|
||
.80 clc
|
||
rts
|
||
*--------------------------------------
|
||
* From SKT.Read
|
||
* In:
|
||
* Src : hInMem/INTAIL
|
||
* Dst : ZPDataOutPtr/ZPDataOutLen
|
||
* Out:
|
||
* Y,A = bytes read
|
||
*--------------------------------------
|
||
SKT.GetDataFromSktIn
|
||
jsr SKT.GetTCB
|
||
lda SKT.Cache+S.SOCKET.TCP.INUSED
|
||
ora SKT.Cache+S.SOCKET.TCP.INUSED+1
|
||
bne .10
|
||
sec
|
||
rts A=0,NO DATA
|
||
|
||
.10 ldy #S.SOCKET.SQ.hInMem
|
||
lda (ZPPtrSKT),y
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPTmpPtr1 Make ZPTmpPtr1=buffer base
|
||
|
||
lda ZPTmpPtr1
|
||
clc
|
||
adc SKT.Cache+S.SOCKET.TCP.INTAIL
|
||
sta ZPTmpPtr2
|
||
|
||
lda ZPTmpPtr1+1
|
||
adc SKT.Cache+S.SOCKET.TCP.INTAIL+1
|
||
sta ZPTmpPtr2+1
|
||
|
||
lda ZPDataInLen
|
||
eor #$FF
|
||
tax
|
||
|
||
lda ZPDataInLen+1
|
||
eor #$FF
|
||
pha
|
||
|
||
stz ZPTmpPtr3 Reset byte counter
|
||
stz ZPTmpPtr3+1
|
||
|
||
ldy #0
|
||
|
||
.1 inx Check if room left in dest buffer
|
||
bne .2
|
||
pla
|
||
inc
|
||
beq .8
|
||
|
||
pha
|
||
|
||
.2 lda SKT.Cache+S.SOCKET.TCP.INTAIL
|
||
eor SKT.Cache+S.SOCKET.TCP.INHEAD
|
||
bne .3
|
||
lda SKT.Cache+S.SOCKET.TCP.INTAIL+1
|
||
eor SKT.Cache+S.SOCKET.TCP.INHEAD+1
|
||
beq .7
|
||
|
||
.3 lda (ZPTmpPtr2)
|
||
pha
|
||
|
||
inc SKT.Cache+S.SOCKET.TCP.INTAIL
|
||
bne .4
|
||
|
||
inc SKT.Cache+S.SOCKET.TCP.INTAIL+1
|
||
lda SKT.Cache+S.SOCKET.TCP.INTAIL+1
|
||
cmp /K.TCP.WSIZE
|
||
bne .4
|
||
|
||
stz SKT.Cache+S.SOCKET.TCP.INTAIL+1
|
||
lda ZPTmpPtr1
|
||
sta ZPTmpPtr2
|
||
lda ZPTmpPtr1+1
|
||
sta ZPTmpPtr2+1
|
||
bra .5
|
||
|
||
.4 inc ZPTmpPtr2
|
||
bne .5
|
||
inc ZPTmpPtr2+1
|
||
|
||
.5 pla get back data....
|
||
|
||
.6 sta (ZPDataInPtr),y
|
||
iny
|
||
bne .61
|
||
inc ZPDataInPtr+1
|
||
|
||
.61 inc ZPTmpPtr3
|
||
bne .1
|
||
inc ZPTmpPtr3+1
|
||
|
||
bra .1
|
||
|
||
.7 pla discard byte counter HI
|
||
|
||
.8 lda ZPTmpPtr3 Do we have transfered something?
|
||
ora ZPTmpPtr3+1
|
||
beq .9
|
||
|
||
>ADC16 SKT.Cache+S.SOCKET.TCP.INFREE,ZPTmpPtr3
|
||
>SBC16 SKT.Cache+S.SOCKET.TCP.INUSED,ZPTmpPtr3
|
||
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTACKNUM+3
|
||
clc
|
||
adc ZPTmpPtr3
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTACKNUM+3
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTACKNUM+2
|
||
adc ZPTmpPtr3+1
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTACKNUM+2
|
||
|
||
bcc .80
|
||
inc SKT.Cache+S.SOCKET.TCP.OUTACKNUM+1
|
||
bne .80
|
||
inc SKT.Cache+S.SOCKET.TCP.OUTACKNUM
|
||
|
||
.80 jsr SKT.StoreTCB
|
||
|
||
ldy #S.SOCKET.TCP.O
|
||
lda (ZPPtrSKT),y
|
||
ora #S.TCP.OPTIONS.ACK
|
||
sta (ZPPtrSKT),y
|
||
|
||
jsr TCP.OUT.I SKT.GetTCB already called, Try to ACK read DATA
|
||
|
||
>LDYA ZPTmpPtr3
|
||
clc
|
||
rts
|
||
.9
|
||
* lda #0
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
* From SKT.Write.TCP
|
||
* Src : ZPDataInPtr/ZPDataInLen
|
||
* Dst : hOutMem/OUTHEAD
|
||
*--------------------------------------
|
||
SKT.AddDataToSktOut
|
||
jsr SKT.GetTCB
|
||
ldx SKT.Cache+S.SOCKET.TCP.OUTFREE
|
||
cpx ZPDataInLen
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTFREE+1
|
||
sbc ZPDataInLen+1
|
||
bcc .9 Not enough room in Q
|
||
|
||
ldy #S.SOCKET.SQ.hOutMem
|
||
lda (ZPPtrSKT),y
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPTmpPtr1 Make ZPTmpPtr1=buffer base
|
||
|
||
lda ZPTmpPtr1
|
||
clc
|
||
adc SKT.Cache+S.SOCKET.TCP.OUTHEAD
|
||
sta ZPTmpPtr2
|
||
|
||
lda ZPTmpPtr1+1
|
||
adc SKT.Cache+S.SOCKET.TCP.OUTHEAD+1
|
||
sta ZPTmpPtr2+1 Make ZPTmpPtr2=base+Tail
|
||
|
||
lda ZPDataInLen
|
||
eor #$FF
|
||
tax
|
||
|
||
lda ZPDataInLen+1
|
||
eor #$FF
|
||
pha
|
||
|
||
ldy #0
|
||
|
||
.1 inx
|
||
bne .2
|
||
pla
|
||
inc
|
||
beq .8
|
||
|
||
pha
|
||
|
||
.2 lda (ZPDataInPtr),y
|
||
sta (ZPTmpPtr2)
|
||
iny
|
||
bne .3
|
||
inc ZPDataInPtr+1
|
||
|
||
.3 inc ZPTmpPtr2
|
||
bne .4
|
||
inc ZPTmpPtr2+1
|
||
|
||
.4 inc SKT.Cache+S.SOCKET.TCP.OUTHEAD
|
||
bne .1
|
||
inc SKT.Cache+S.SOCKET.TCP.OUTHEAD+1
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTHEAD+1
|
||
cmp /K.TCP.WSIZE
|
||
bne .1
|
||
stz SKT.Cache+S.SOCKET.TCP.OUTHEAD+1
|
||
|
||
lda ZPTmpPtr1 Dst Ptr=Buffer Base
|
||
sta ZPTmpPtr2
|
||
lda ZPTmpPtr1+1
|
||
sta ZPTmpPtr2+1
|
||
bra .1
|
||
|
||
.9 sec
|
||
rts
|
||
|
||
.8 >SBC16 SKT.Cache+S.SOCKET.TCP.OUTFREE,ZPDataInLen
|
||
>ADC16 SKT.Cache+S.SOCKET.TCP.OUTUSED,ZPDataInLen
|
||
>ADC16 SKT.Cache+S.SOCKET.TCP.OUTTOSEND,ZPDataInLen
|
||
jmp SKT.StoreTCB
|
||
*--------------------------------------
|
||
* From TCP.OUT
|
||
* Src : hOutMem/OUTTAIL
|
||
* Dst : ZPDataOutPtr/ZPDataOutLen
|
||
*--------------------------------------
|
||
SKT.GetDataFromSktOut
|
||
ldy #S.SOCKET.SQ.hOutMem
|
||
lda (ZPPtrSKT),y
|
||
|
||
>SYSCALL GetMemPtr
|
||
>STYA ZPTmpPtr1 Make ZPTmpPtr1=buffer base
|
||
|
||
lda ZPTmpPtr1
|
||
clc
|
||
adc SKT.Cache+S.SOCKET.TCP.OUTTAILNEXT
|
||
sta ZPTmpPtr2 Make ZPTmpPtr2=base+nexttail
|
||
|
||
lda ZPTmpPtr1+1
|
||
adc SKT.Cache+S.SOCKET.TCP.OUTTAILNEXT+1
|
||
sta ZPTmpPtr2+1
|
||
|
||
lda ZPDataOutLen
|
||
eor #$FF
|
||
tax
|
||
|
||
lda ZPDataOutLen+1
|
||
eor #$FF
|
||
pha
|
||
|
||
ldy #0
|
||
|
||
.1 inx
|
||
bne .2
|
||
pla
|
||
inc
|
||
beq .8
|
||
|
||
pha
|
||
|
||
.2 lda (ZPTmpPtr2)
|
||
sta (ZPDataOutPtr),y
|
||
iny
|
||
bne .3
|
||
inc ZPDataOutPtr+1
|
||
|
||
.3 inc ZPTmpPtr2
|
||
bne .4
|
||
inc ZPTmpPtr2+1
|
||
|
||
.4 inc SKT.Cache+S.SOCKET.TCP.OUTTAILNEXT
|
||
bne .1
|
||
inc SKT.Cache+S.SOCKET.TCP.OUTTAILNEXT+1
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTTAILNEXT+1
|
||
cmp /K.TCP.WSIZE
|
||
bne .1
|
||
stz SKT.Cache+S.SOCKET.TCP.OUTTAILNEXT+1
|
||
|
||
lda ZPTmpPtr1 Dst Ptr=Buffer Base
|
||
sta ZPTmpPtr2
|
||
lda ZPTmpPtr1+1
|
||
sta ZPTmpPtr2+1
|
||
bra .1
|
||
|
||
.8 >SBC16 SKT.Cache+S.SOCKET.TCP.OUTTOSEND,ZPDataOutLen
|
||
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
* From TCP.IN
|
||
* Src : A,X
|
||
* Dst : hOutMem/OUTTAIL
|
||
*--------------------------------------
|
||
SKT.AckDataToSktOut
|
||
ldy #S.TCP.ACKNUM+3 Get new ACK number from FrameIn...
|
||
ldx #3 Substract old ACK from socket
|
||
|
||
sec
|
||
|
||
.1 lda (ZPFrameInPtr),y
|
||
pha
|
||
sbc SKT.Cache+S.SOCKET.TCP.OUTSEQNUM,x
|
||
sta TmpDWord,x
|
||
pla ....and Set SEQ = new SEQ
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTSEQNUM,x
|
||
dey
|
||
dex
|
||
bpl .1
|
||
|
||
lda TmpDWord+3
|
||
ldx TmpDWord+2
|
||
bne .2
|
||
tay
|
||
beq .8
|
||
|
||
.2 clc
|
||
adc SKT.Cache+S.SOCKET.TCP.OUTTAIL
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTTAIL
|
||
|
||
txa
|
||
adc SKT.Cache+S.SOCKET.TCP.OUTTAIL+1
|
||
and /K.TCP.WSIZE-1
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTTAIL+1
|
||
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTFREE
|
||
clc
|
||
adc TmpDWord+3
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTFREE
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTFREE+1
|
||
adc TmpDWord+2
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTFREE+1
|
||
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTUSED
|
||
sec
|
||
sbc TmpDWord+3
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTUSED
|
||
lda SKT.Cache+S.SOCKET.TCP.OUTUSED+1
|
||
sbc TmpDWord+2
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTUSED+1
|
||
|
||
.8 rts
|
||
*--------------------------------------
|
||
SKT.NewTCB ldx #S.SOCKET.TCP.INTAIL
|
||
|
||
.1 stz SKT.Cache,x
|
||
inx
|
||
cpx #S.SOCKET.TCP
|
||
bne .1
|
||
|
||
>LDYAI K.TCP.WSIZE
|
||
>STYA SKT.Cache+S.SOCKET.TCP.INFREE
|
||
>SYSCALL getmem
|
||
bcs .9
|
||
txa
|
||
ldy #S.SOCKET.SQ.hInMem
|
||
sta (ZPPtrSKT),y
|
||
|
||
>LDYAI K.TCP.WSIZE
|
||
>STYA SKT.Cache+S.SOCKET.TCP.OUTFREE
|
||
>SYSCALL getmem
|
||
bcs .9
|
||
txa
|
||
ldy #S.SOCKET.SQ.hOutMem
|
||
sta (ZPPtrSKT),y
|
||
|
||
ldx #3
|
||
|
||
.2 lda A2osX.TIMER16,x
|
||
sta SKT.Cache+S.SOCKET.TCP.OUTNEXTSEQ,x
|
||
dex
|
||
bpl .2
|
||
* clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
SKT.StoreTCB.S ldy #S.SOCKET.TCP.S
|
||
sta (ZPPtrSKT),y
|
||
|
||
SKT.StoreTCB ldy #S.SOCKET.TCP.INTAIL
|
||
.1 lda SKT.Cache,y
|
||
sta (ZPPtrSKT),y
|
||
iny
|
||
cpy #S.SOCKET.TCP
|
||
bne .1
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
SKT.GetTCB ldy #S.SOCKET.TCP.INTAIL
|
||
.1 lda (ZPPtrSKT),y
|
||
sta SKT.Cache,y
|
||
iny
|
||
cpy #S.SOCKET.TCP
|
||
bne .1
|
||
rts
|
||
*--------------------------------------
|
||
SKT.SetFrameOutDstIP
|
||
ldy #S.SOCKET.REM.ADDR
|
||
ldx #4
|
||
|
||
.1 lda (ZPPtrSKT),y
|
||
pha
|
||
iny
|
||
dex
|
||
bne .1
|
||
|
||
ldy #S.IP.DST+3
|
||
ldx #4
|
||
|
||
.2 pla
|
||
sta (ZPFrameOutPtr),y
|
||
dey
|
||
dex
|
||
bne .2
|
||
rts
|
||
*--------------------------------------
|
||
SKT.SetFrameOutTCPUDPPorts
|
||
ldy #S.SOCKET.LOC.PORT
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
iny
|
||
lda (ZPPtrSKT),y
|
||
ldy #S.TCPUDP.SRCPORT
|
||
sta (ZPFrameOutPtr),y
|
||
iny
|
||
txa
|
||
sta (ZPFrameOutPtr),y
|
||
|
||
ldy #S.SOCKET.REM.PORT
|
||
lda (ZPPtrSKT),y
|
||
tax
|
||
iny
|
||
lda (ZPPtrSKT),y
|
||
ldy #S.TCPUDP.DSTPORT
|
||
sta (ZPFrameOutPtr),y
|
||
iny
|
||
txa
|
||
sta (ZPFrameOutPtr),y
|
||
|
||
rts
|
||
*--------------------------------------
|
||
SKT.CopyDataInToOut
|
||
lda ZPDataInPtr+1
|
||
pha
|
||
lda ZPDataOutPtr+1
|
||
pha
|
||
|
||
lda ZPDataInLen
|
||
eor #$ff
|
||
tax
|
||
lda ZPDataInLen+1
|
||
eor #$ff
|
||
pha
|
||
|
||
ldy #0
|
||
|
||
.1 inx
|
||
bne .2
|
||
pla
|
||
inc
|
||
beq .9
|
||
pha
|
||
|
||
.2 lda (ZPDataInPtr),y
|
||
sta (ZPDataOutPtr),y
|
||
iny
|
||
bne .1
|
||
inc ZPDataInPtr+1
|
||
inc ZPDataOutPtr+1
|
||
bne .1
|
||
|
||
.9 pla
|
||
sta ZPDataOutPtr+1
|
||
pla
|
||
sta ZPDataInPtr+1
|
||
rts
|
||
MAN
|
||
SAVE USR/SRC/LIB/LIBTCPIP.S.SKT
|
||
LOAD USR/SRC/LIB/LIBTCPIP.S
|
||
ASM
|