Kernel 0.93+

This commit is contained in:
Rémy GIBERT 2019-10-15 17:33:51 +02:00
parent 250b83a3b1
commit 1aab944396
3 changed files with 4 additions and 7 deletions

View File

@ -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

View File

@ -76,7 +76,7 @@ Pak >PULLW Pak.SrcPtr
stz Pak.bPass2
jsr Pak.Run
bcs .9
* bcs .9
jsr Pak.ComputeLenBits
jsr Pak.BuildTOPTable

View File

@ -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