Kernel 0.9.2

BIN/TELNET.S.txt

@@ -83,13 +83,15 @@ CS.RUN.IPOK		ldy #S.PS.ARGC
 				>SYSCALL GetArg
 				>PUSHYA
 				>LIBCALL hLIBTCPIP,LIBTCPIP.HST.GETBYNAME
-				bcc CS.RUN.HOSTOK	
+				bcc CS.RUN.HOSTOK
+				>SLEEP
 				jsr Wait.Timeout
 				bcc .2
 
 				lda #1
 				>SYSCALL GetArg
 				>PUSHYA
+				>PUSHBI 2
 				>LDYA L.MSG.UNKNOWN
 				>SYSCALL printf
 				bra .99
@@ -101,10 +103,22 @@ CS.RUN.IPOK		ldy #S.PS.ARGC
 				sec				
 				rts
 
-CS.RUN.HOSTOK	lda #1
+CS.RUN.HOSTOK	ldy #S.PS.ARGC
+				lda (pPs),y
+				cmp #2
+				bcc CS.RUN.PORTOK
+				
+				lda #2
+				>SYSCALL GetArg
+				>SYSCALL atoi
+				>STYA Socket.Dst.Port
+				
+CS.RUN.PORTOK	lda #1
 				>SYSCALL GetArg
 				>PUSHYA
 				
+				>PUSHW Socket.Dst.Port
+
 				ldy #DST.IP+3
 				ldx #3
 				
@@ -115,7 +129,7 @@ CS.RUN.HOSTOK	lda #1
 				dex
 				bpl .1
 				
-				>PUSHBI 6
+				>PUSHBI 8
 				>LDYA L.MSG.HOSTOK
 				>SYSCALL printf
 		
@@ -250,7 +264,7 @@ hLIBTCPIP		.BS 1
 MSG.IPKO		.AZ "TCP/IP Not Loaded/Configured."
 MSG.USAGE		.AZ "Usage : TELNET <ip|host> [port]"
 MSG.UNKNOWN		.AZ "%s: Unknown host\r\n"
-MSG.HOSTOK		.AZ "Connecting to %d.%d.%d.%d (%s) ...\r\n"
+MSG.HOSTOK		.AZ "Connecting to %d.%d.%d.%d:%D (%s) ...\r\n"
 MSG.SKTKO		.AZ "Failed to Open Socket."
 MSG.SKTOK		.AZ "Connected."
 MSG.SKTERR		.AZ "Socket Error : $%h\r\n"