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

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-10-30 19:25:04 +01:00
parent f4762df90b
commit 22780942a9
3 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BOOT.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

22
BIN/PAKME.S.txt
View File

@ -208,10 +208,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
jmp CS.RUN.LOOP jmp CS.RUN.LOOP
.8 jsr CS.RUN.SeekTable .8 jsr CS.RUN.RewriteTable Write modifid Table
bcs .9
jsr CS.RUN.WriteTable Write modifid Table
bcs .9 bcs .9
lda #0 lda #0
@ -311,7 +308,11 @@ CS.RUN.GetTable >LDA.G PAKME.HEADER+8
>SBC.G PAKME.HEADER+6 >SBC.G PAKME.HEADER+6
sta ZPDstTableOfs+1 sta ZPDstTableOfs+1
jsr CS.RUN.SeekTable >PUSHBI SEEK.SET
>PUSHWZ
>PUSHW ZPDstTableOfs
lda hSrcFile
>SYSCALL fseek
bcs .9 bcs .9
>LDA.G PAKME.HEADER+7 >LDA.G PAKME.HEADER+7
@ -411,16 +412,16 @@ CS.RUN.Pak >LDYA ZPChunkLen
>STYA ZPChunkPakedLen >STYA ZPChunkPakedLen
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN.SeekTable CS.RUN.RewriteTable
>PUSHBI SEEK.SET >PUSHBI SEEK.SET
>PUSHWZ >PUSHWZ
>PUSHW ZPDstTableOfs >PUSHW ZPDstTableOfs
lda hSrcFile lda hDstFile
>SYSCALL fseek >SYSCALL fseek
rts bcs CS.RUN.WriteTable.RTS
*-------------------------------------- *--------------------------------------
CS.RUN.WriteTable CS.RUN.WriteTable
lda ZPChunkCnt >LDA.G PAKME.HEADER+7
asl asl
tay tay
lda #0 lda #0
@ -428,6 +429,7 @@ CS.RUN.WriteTable
>PUSHEA.G PAKME.TABLE >PUSHEA.G PAKME.TABLE
lda hDstFile lda hDstFile
>SYSCALL fwrite >SYSCALL fwrite
CS.RUN.WriteTable.RTS
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.WritePak lda hDstFile CS.RUN.WritePak lda hDstFile
@ -459,7 +461,7 @@ CS.RUN.UpdateTable
clc clc
adc #PAKME.TABLE adc #PAKME.TABLE
tay tay
pla pla
clc clc
adc ZPChunkNewOfs adc ZPChunkNewOfs