From b974fded0623724ae6e1a0377732dd55a4d31c7b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Fri, 27 Apr 2018 14:13:54 +0200
Subject: [PATCH] Kernel 0.9.1 : KERNEL, bugfix in PS command.

---
 BIN/PS.S.txt        | 5 +++--
 INC/A2osX.I.txt     | 2 +-
 SYS/KERNEL.S.PS.txt | 1 -
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/BIN/PS.S.txt b/BIN/PS.S.txt
index 3ec87b2c..666c368a 100644
--- a/BIN/PS.S.txt
+++ b/BIN/PS.S.txt
@@ -53,7 +53,8 @@ CS.RUN			>LDYA pData
 				>LDA.G PS.Count
 				beq .8			
 				
-				>INC.G PS.Index
+				lda #1
+				>STA.G PS.Index
 				
 .1				>INC.G PS.Index
 				tay				
@@ -126,7 +127,7 @@ CS.QUIT			clc
 *--------------------------------------
 CS.END			
 MSG0			.AZ "ID  CPU\% Flags    UID PID Command Line\r\n"
-MSGK			.AZ "000 %03d\% -------- *KERNEL*\r\n"
+MSGK			.AZ "000 %03d\% -------- 000 --- *KERNEL*\r\n"
 MSG1			.AZ "%03d %03d\% %s %03d %03d %s\r\n"
 MSG.FLAGS		.AS "IRQDHSed"
 *--------------------------------------
diff --git a/INC/A2osX.I.txt b/INC/A2osX.I.txt
index 045ed5e9..7648fc14 100644
--- a/INC/A2osX.I.txt
+++ b/INC/A2osX.I.txt
@@ -40,7 +40,7 @@ A2osX.CPUSPEED	.EQ $BEE6				WORD, (->255.99 Mhz)
 A2osX.Z80SLOT	.EQ $BEE8
 A2osX.Z80SPEED	.EQ $BEE9				WORD
 
-A2osX.InKernel	.EQ $BEEB
+*				.EQ $BEEB
 
 A2osX.TIMER16	.EQ $BEEC				WORD
 A2osX.RANDOM16	.EQ $BEEE				WORD
diff --git a/SYS/KERNEL.S.PS.txt b/SYS/KERNEL.S.PS.txt
index 2d5b271d..67b2bdd9 100644
--- a/SYS/KERNEL.S.PS.txt
+++ b/SYS/KERNEL.S.PS.txt
@@ -398,7 +398,6 @@ K.GetPSList.YA	>STYA ZPPtr1
 				ldy #1
 				lda CORE.InKernelStat
 				sta (ZPPtr1),y
-				iny
 				
 .1				lda PS.Table.PID,x
 				beq .2