Kernel 0.9.2

LIB/LIBTCPIP.S.SKT.txt

@@ -6,7 +6,7 @@ AUTO 4,1
 * # SKT.Socket
 * Create a new socket
 * ## C
-* `hSOCKET socket(int type, int protocol);`
+* `hSOCKET socket(short int type, int protocol);`
 * ## ASM
 * **In:**
 * `>PUSHW protocol`
@@ -16,6 +16,27 @@ AUTO 4,1
 * CC: A = hSOCKET
 * CS: A = EC
 *\--------------------------------------
+SKT.Socket		pha
+				>PULLW TmpDWord			save protocol
+				
+				plx
+				jmp (J.SKT.Socket,x)
+				
+SKT.Socket.RAW
+SKT.Socket.DGRAM
+				ldy #S.FD.SSOCK+S.SOCKET
+				.HS 2C					BIT ABS
+SKT.Socket.STREAM
+SKT.Socket.SEQPACKET
+				ldy #S.FD.SSOCK+S.SOCKET+S.TCB
+				lda #0
+				>SYSCALL GetMemPtr
+				bcs .9
+				>STYA ZPPtrSKT
+				
+				
+				
+.9				rts				
 */--------------------------------------
 * # SKT.bind
 * Create a new socket
@@ -75,6 +96,7 @@ SKT.connect.SEQPACKET
 * CC: A = hSOCKET
 * CS: A = EC
 *\--------------------------------------
+SKT.listen
 */--------------------------------------
 * # SKT.New
 * Create a new socket

LIB/LIBTCPIP.S.txt

@@ -124,6 +124,10 @@ J.TCP.IN		.DA TCP.IN.JMP.CLOSED
 				.DA TCP.IN.JMP.FINWT2
 				.DA TCP.IN.JMP.CLOSING
 				.DA TCP.IN.JMP.TIMEWT
+J.SKT.Socket	.DA SKT.Socket.RAW
+				.DA SKT.Socket.DGRAM
+				.DA SKT.Socket.STREAM
+				.DA SKT.Socket.SEQPACKET
 J.SKT.connect	.DA SKT.connect.RAW
 				.DA SKT.connect.DGRAM
 				.DA SKT.connect.STREAM