Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-11 07:29:00 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BIN/PAK.S.txt
View File

@ -480,7 +480,6 @@ CS.RUN.WriteArcHdr.9
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.WriteSrcData CS.RUN.WriteSrcData
>DEBUG
lda #CHNK.T.DATA lda #CHNK.T.DATA
jsr CS.RUN.WriteArcByteA jsr CS.RUN.WriteArcByteA
bcs .9 bcs .9
@ -515,7 +514,7 @@ CS.RUN.WritePakData
>LDA.G Shunk.DstSize+1 >LDA.G Shunk.DstSize+1
jsr CS.RUN.WriteArcByteA jsr CS.RUN.WriteArcByteA
bcs .9 bcs .9
>DEBUG
>PUSHW.G Shunk.DstSize >PUSHW.G Shunk.DstSize
>PUSHW ZPDstBufPtr >PUSHW ZPDstBufPtr
>LDA.G hArcFile >LDA.G hArcFile

2
LIB/LIBPAK.S.txt
View File

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

4
SHARED/X.UNPAK.S.txt
View File

@ -62,7 +62,6 @@ X.Unpak.PAK pha A = BLBITS
sta ZPBLOfsHBits sta ZPBLOfsHBits
jsr X.Unpak.NextByte get TOPCNT jsr X.Unpak.NextByte get TOPCNT
>DEBUG
lda (ZPInBufPtr) CHNK.DATA.PAK.TOPLEN lda (ZPInBufPtr) CHNK.DATA.PAK.TOPLEN
tax tax
@ -88,8 +87,7 @@ X.Unpak.PAK pha A = BLBITS
ora ZPnCnt+1 ora ZPnCnt+1
beq X.Unpak.STORE.8 beq X.Unpak.STORE.8
*-------------------------------------- *--------------------------------------
.2 >DEBUG .2 jsr X.Unpak.GetBitInC
jsr X.Unpak.GetBitInC
bcs .3 ->TOP bcs .3 ->TOP
* BYTE8 * BYTE8
ldx #8 ldx #8