diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po
index beb2371f..062425a1 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 293ca09f..4bf83dd8 100644
Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ
diff --git a/BIN/PING.S.txt b/BIN/PING.S.txt
index a978f819..e3e8cc00 100644
--- a/BIN/PING.S.txt
+++ b/BIN/PING.S.txt
@@ -11,12 +11,10 @@ AUTO 4,1
 				.INB INC/ETH.I
 				.INB INC/LIBTCPIP.I
 *--------------------------------------
-TIMEOUT.MAX		.EQ 20					2 sec.
+TIMEOUT.MAX		.EQ 40					4 sec.
 *--------------------------------------
-ZPFrameBase		.EQ ZPBIN
-ZPFrameLen		.EQ ZPBIN+2
-ZPFramePtr1		.EQ ZPBIN+4
-ZPIPCfgPtr		.EQ ZPBIN+6
+ZPIPCfgPtr		.EQ ZPBIN
+ZPTmpPtr		.EQ ZPBIN+2
 *--------------------------------------
 *			File Header (16 Bytes)
 *--------------------------------------
@@ -24,11 +22,12 @@ 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		S.PS.F
+				.DA #0
 				.DA CS.END-CS.START		Code Length To Relocate
 				.DA DS.END-DS.START		Data Segment to Allocate
 				.DA #64					SS
-				.DA #8					ZP
+				.DA #4					ZP
 				.DA 0
 *--------------------------------------
 .1				.DA CS.INIT
@@ -72,39 +71,61 @@ CS.RUN			>LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG	is TCPIP loaded ?
 				sec				
 				rts
 				
-CS.RUN.IPOK		ldy #S.PS.ARGC
-				lda (pPs),y
+CS.RUN.IPOK		
+.1				>INC.G ArgIndex
+				>SYSCALL GetArg
+				bcs .8
+				>STYA ZPTmpPtr
+				
+				lda (ZPTmpPtr)
+				cmp #'-'
+				bne .2
 
+				ldy #1 
+				lda (ZPTmpPtr),y
 				beq .9
+
+				cmp #'0'
+				bcc .9
+				cmp #'9'+1
+				bcs .9
+				
+				and #$0F
+				>STA.G PingCount
+				bra .1			
 				
 				jsr Init.Timeout
-
-.2				>PUSHW pData			DST.IP
-				lda #1
-				>SYSCALL GetArg
-				>PUSHYA
+				
+.2				>PUSHEA.G DST.IP
+				>PUSHW ZPTmpPtr
 				>LIBCALL hLIBTCPIP,LIBTCPIP.HST.GETBYNAME
-				bcc CS.RUN.HOSTOK	
+				bcc .3
 				>SLEEP
 				jsr Wait.Timeout
 				bcc .2
 
-				lda #1
-				>SYSCALL GetArg
-				>PUSHYA
+				>PUSHW ZPTmpPtr
 				>PUSHBI 2
 				>LDYA L.MSG.UNKNOWN
-				>SYSCALL printf
 				bra .99
 				
-.9				>LDYA L.MSG.USAGE
-				>SYSCALL puts
+.3				>LDA.G ArgIndex
+				>STA.G ArgHostName
+				jmp .1
+				
+.8				>LDA.G DST.IP
+				bne CS.RUN.ARGSOK
+				
+.9				>PUSHBI 0
+				>LDYA L.MSG.USAGE
+				
+.99				>SYSCALL printf
 
-.99				lda #K.E.SYN
+				lda #K.E.SYN
 				sec				
 				rts
 
-CS.RUN.HOSTOK	lda #1
+CS.RUN.ARGSOK	>LDA.G ArgHostName
 				>SYSCALL GetArg
 				>PUSHYA
 				
@@ -151,8 +172,7 @@ CS.RUN.OPENSKT	ldx #3
 				rts
 				
 .2				txa
-				ldy #hSocket
-				sta (pData),y
+				>STA.G hSocket
 
 CS.RUN.SEND.ECHO				
 				ldy #Identifier
@@ -177,8 +197,7 @@ CS.RUN.SEND.ECHO
 
 				jsr Init.Timeout
 				
-				ldy #hSocket
-				>PUSHB (pData),y
+				>PUSHB.G hSocket
 				>PUSHW L.ICMP.Request
 				>PUSHWI ICMP.RequestLen
 				
@@ -192,47 +211,44 @@ CS.RUN.WAIT.REPLY
 				>SYSCALL GetChar
 				bcs .1
 				cmp #3					Ctrl-C
-				beq .9
+				beq CS.RUN.ERR			CS
 				
-.1				ldy #hSocket
-				lda (pData),y
+.1				>LDA.G hSocket
 				>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Rcvd
-				bcs .2
+				bcc .2
+				jsr Wait.Timeout
+				bcc CS.RUN.WAIT.REPLY
+
+				jsr CS.Print.UNREACH
+				bcs CS.RUN.ERR
+				bra .7
 				
-				ldy #hFrame
-				sta (pData),y
+.2				>STA.G hFrame
 				>SYSCALL GetMemPtr
-				>STYA ZPFrameBase
+				>STYA ZPTmpPtr
 				jsr CS.Print.REPLY
 				bcs CS.RUN.ERR
 
-				ldy #hFrame
-				lda (pData),y
+				>LDA.G hFrame
 				>SYSCALL FreeMem
 				
-				ldy #hFrame
-				lda #0
+				>STZ.G hFrame
+
+.7				>LDA.G PingCount
+				beq .8
+				dec
+				beq .9					A=0
 				sta (pData),y
 
-				jmp CS.RUN.SEND.ECHO
+.8				jmp CS.RUN.SEND.ECHO
 				
-.2				jsr Wait.Timeout
-				bcc CS.RUN.WAIT.REPLY
-				
-				jsr CS.Print.UNREACH
-				bcs CS.RUN.ERR
-
-				jmp CS.RUN.SEND.ECHO
-				
-.9				lda #0
-				sec
+.9				sec
 CS.RUN.ERR		rts
 *--------------------------------------
 CS.DOEVENT		lda (pEvent)
 				bpl .9					is it a TIMER event?
 				
-				ldy #TimeOut
-				lda (pData),y
+				>LDA.G TimeOut
 				beq .9
 				
 				dec
@@ -263,7 +279,7 @@ CS.Print.REPLY	lda #TIMEOUT.MAX
 				>STZ.G TimeOut.ms
 				>STA.G TimeOut.ms+1
 				
-				tay
+				tax
 				beq .3
 				
 .1				>LDA.G TimeOut.ms
@@ -273,23 +289,23 @@ CS.Print.REPLY	lda #TIMEOUT.MAX
 				bcc .2
 				
 				>INC.G TimeOut.ms+1
-.2				dey
+.2				dex
 				bne .1
 				
 .3				>PUSHW.G TimeOut.ms
 
 				ldy #S.IP.TTL
-				>PUSHB (ZPFrameBase),y
+				>PUSHB (ZPTmpPtr),y
 				
 				ldy #S.ICMP.SEQUENCE+1
-				>PUSHB (ZPFrameBase),y
+				>PUSHB (ZPTmpPtr),y
 				dey 
-				>PUSHB (ZPFrameBase),y
+				>PUSHB (ZPTmpPtr),y
 				
 				ldx #4
 				ldy #S.IP.SRC+3
 				
-.4				>PUSHB (ZPFrameBase),y
+.4				>PUSHB (ZPTmpPtr),y
 				dey
 				dex
 				bne .4
@@ -299,30 +315,30 @@ CS.Print.REPLY	lda #TIMEOUT.MAX
 				>SYSCALL printf
 				rts
 *--------------------------------------
-CS.QUIT			ldy #hFrame
-				lda (pData),y
+CS.QUIT			>LDA.G hFrame
 				beq .1
 				
 				>SYSCALL FreeMem
 
-.1				ldy #hSocket
-				lda (pData),y
+.1				>LDA.G hSocket
+				beq .2
 
 				>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.Close
 				
-				lda hLIBTCPIP
+.2				lda hLIBTCPIP
+				beq .8
+				
 				>SYSCALL UnloadLib
-				clc
+
+.8				clc
 				rts
 *--------------------------------------
-Init.Timeout	ldy #TimeOut
-				lda #TIMEOUT.MAX
-				sta (pData),y
+Init.Timeout	lda #TIMEOUT.MAX
+				>STA.G TimeOut
 				rts
 *--------------------------------------
 Wait.TimeOut	sec
-				ldy #TimeOut
-				lda (pData),y
+				>LDA.G TimeOut
 				beq .9
 
 				clc
@@ -331,7 +347,8 @@ Wait.TimeOut	sec
 CS.END
 LIBTCPIP		.AZ "libtcpip.o"
 MSG.IPKO		.AZ "TCP/IP Not Loaded/Configured."
-MSG.USAGE		.AZ "Usage : PING <ip|host>"
+MSG.USAGE		.AS "Usage : PING <ip|host>\r\n"
+				.AZ " -1-9 : Ping Count\r\n"
 MSG.UNKNOWN		.AZ "%s: Unknown host\r\n"
 MSG.HOSTOK		.AZ "PING %d.%d.%d.%d (%s)\r\n"
 MSG.SKTKO		.AZ "Failed to Open Socket."
@@ -360,6 +377,9 @@ ICMP.RequestLen	.EQ *-ICMP.Request
 				.DUMMY
 				.OR 0
 DS.START
+ArgIndex		.BS 1
+PingCount		.BS 1
+ArgHostName		.BS 1
 DST.IP			.BS 4
 hSocket			.BS 1
 hFrame			.BS 1
diff --git a/INC/KERNEL.I.txt b/INC/KERNEL.I.txt
index 3ac87f44..e2201860 100644
--- a/INC/KERNEL.I.txt
+++ b/INC/KERNEL.I.txt
@@ -150,9 +150,9 @@ H.BIN.CPU.6502		.EQ $60
 H.BIN.CPU.65C02		.EQ $61
 H.BIN.CPU.65R02		.EQ $62
 H.BIN.CPU.65816		.EQ $63
-*H.BIN.VERSION		.EQ 5
-H.BIN.CODE.LEN	.EQ 8
-*
+H.BIN.V			.EQ 5
+H.BIN.F			.EQ 6
+H.BIN.CS.SIZE	.EQ 8
 H.BIN.DS.SIZE	.EQ 10
 H.BIN.SS.SIZE	.EQ 12
 H.BIN.ZP.SIZE	.EQ 13
diff --git a/README.md b/README.md
index e290d259..524ea0ac 100644
--- a/README.md
+++ b/README.md
@@ -347,7 +347,7 @@ note : '$VAR' does NOT expand Variable
 | NETSTAT | Working | | 0.92 |
 | ARP | Working | dump ARP cache, setup a static ARP entry | 0.92 |
 | DNSINFO | Working | dump DNS cache, setup a static DNS entry | 0.92 |
-| PING | Working | | 0.92 |
+| PING | Working | -1..9 : Ping Count | 0.92 |
 | TELNET | Working | | 0.92 |
 
 ## DEV tools:
diff --git a/SYS/KERNEL.S.BIN.txt b/SYS/KERNEL.S.BIN.txt
index 57f0c39a..0587f907 100644
--- a/SYS/KERNEL.S.BIN.txt
+++ b/SYS/KERNEL.S.BIN.txt
@@ -242,7 +242,7 @@ BIN.Load.1		>PUSHWI K.S.STAT
 				sbc BIN.R.CS.Start+1
 				sta BIN.R.Offset+1
 				
-				ldy #H.BIN.CODE.LEN		get Code Len
+				ldy #H.BIN.CS.SIZE		get Code Len
 				lda (ZPPtr1),y
 				clc
 				adc BIN.R.CS.Start