From dab1b519fb9498e006632f67acb198f44ebf12b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Thu, 17 Mar 2016 15:33:37 +0100
Subject: [PATCH] KERNEL:ps QUIT now called when INIT failed

---
 SYS/KERNEL.S.TSK.txt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/SYS/KERNEL.S.TSK.txt b/SYS/KERNEL.S.TSK.txt
index 77708400..df304f1d 100644
--- a/SYS/KERNEL.S.TSK.txt
+++ b/SYS/KERNEL.S.TSK.txt
@@ -553,7 +553,12 @@ S.InitProcess	lda S.CreateProcessA.Args
 				
 				ldx #TSKMGR.INIT
 				jsr pCodeJmp			Call INIT function
-				
+				bcc .99
+				pha						save error code
+				ldx #TSKMGR.QUIT
+				jsr pCodeJmp			Call QUIT function
+				pla						get back error code
+				sec
 .99				rts
 *--------------------------------------
 * S.SelectProcessA