From 1aab9443962921595dcf9cd4bdf484a6019eb648 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Tue, 15 Oct 2019 17:33:51 +0200
Subject: [PATCH] Kernel 0.93+

---
 BIN/PAK.S.txt        | 5 ++---
 LIB/LIBPAK.S.txt     | 2 +-
 SHARED/X.UNPAK.S.txt | 4 +---
 3 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/BIN/PAK.S.txt b/BIN/PAK.S.txt
index 5323a38e..29048979 100644
--- a/BIN/PAK.S.txt
+++ b/BIN/PAK.S.txt
@@ -480,7 +480,6 @@ CS.RUN.WriteArcHdr.9
 				rts
 *--------------------------------------
 CS.RUN.WriteSrcData
-			>DEBUG
 				lda #CHNK.T.DATA
 				jsr CS.RUN.WriteArcByteA
 				bcs .9
@@ -496,7 +495,7 @@ CS.RUN.WriteSrcData
 				lda #0					NO COMPRESSION
 				jsr CS.RUN.WriteArcByteA
 				bcs .9
-				
+	
 				>PUSHW.G Shunk.SrcSize
 				>PUSHW ZPSrcBufPtr
 				>LDA.G hArcFile
@@ -515,7 +514,7 @@ CS.RUN.WritePakData
 				>LDA.G Shunk.DstSize+1
 				jsr CS.RUN.WriteArcByteA
 				bcs .9
-
+			>DEBUG
 				>PUSHW.G Shunk.DstSize
 				>PUSHW ZPDstBufPtr
 				>LDA.G hArcFile
diff --git a/LIB/LIBPAK.S.txt b/LIB/LIBPAK.S.txt
index 293b6241..3349cac3 100644
--- a/LIB/LIBPAK.S.txt
+++ b/LIB/LIBPAK.S.txt
@@ -76,7 +76,7 @@ Pak				>PULLW Pak.SrcPtr
 				stz Pak.bPass2
 								
 				jsr Pak.Run
-				bcs .9
+*				bcs .9
 
 				jsr Pak.ComputeLenBits
 				jsr Pak.BuildTOPTable
diff --git a/SHARED/X.UNPAK.S.txt b/SHARED/X.UNPAK.S.txt
index 045c8969..33c0e613 100644
--- a/SHARED/X.UNPAK.S.txt
+++ b/SHARED/X.UNPAK.S.txt
@@ -62,7 +62,6 @@ X.Unpak.PAK		pha						A = BLBITS
 				sta ZPBLOfsHBits
 
 				jsr X.Unpak.NextByte	get TOPCNT
-			>DEBUG
 				
 				lda (ZPInBufPtr)		CHNK.DATA.PAK.TOPLEN
 				tax
@@ -88,8 +87,7 @@ X.Unpak.PAK		pha						A = BLBITS
 				ora ZPnCnt+1
 				beq X.Unpak.STORE.8
 *--------------------------------------	
-.2				>DEBUG
-				jsr X.Unpak.GetBitInC
+.2				jsr X.Unpak.GetBitInC
 				bcs .3					->TOP	
 * BYTE8
 				ldx #8