Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 02:49:54 +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
*--------------------------------------
CS.RUN.WriteSrcData
>DEBUG
lda #CHNK.T.DATA
jsr CS.RUN.WriteArcByteA
bcs .9
@ -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

2
LIB/LIBPAK.S.txt
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

4
SHARED/X.UNPAK.S.txt
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