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

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-10-17 12:36:45 +02:00
parent 6e1e557b70
commit 1026bf00d9
5 changed files with 48 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

18
BIN/PAK.S.txt
View File

@ -486,10 +486,18 @@ CS.RUN.WriteSrcData
bcs .9 bcs .9
>LDA.G Shunk.SrcSize >LDA.G Shunk.SrcSize
clc
adc #3
pha
>LDA.G Shunk.SrcSize+1
adc #0
sta ZPPtr1+1
pla
jsr CS.RUN.WriteArcByteA jsr CS.RUN.WriteArcByteA
bcs .9 bcs .9
>LDA.G Shunk.SrcSize+1 lda ZPPtr1+1
jsr CS.RUN.WriteArcByteA jsr CS.RUN.WriteArcByteA
bcs .9 bcs .9
@ -497,6 +505,14 @@ CS.RUN.WriteSrcData
jsr CS.RUN.WriteArcByteA jsr CS.RUN.WriteArcByteA
bcs .9 bcs .9
>LDA.G Shunk.SrcSize
jsr CS.RUN.WriteArcByteA
bcs .9
>LDA.G Shunk.SrcSize+1
jsr CS.RUN.WriteArcByteA
bcs .9
>PUSHW.G Shunk.SrcSize >PUSHW.G Shunk.SrcSize
>PUSHW ZPSrcBufPtr >PUSHW ZPSrcBufPtr
>LDA.G hArcFile >LDA.G hArcFile

16
BIN/UNPAK.S.txt
View File

@ -146,7 +146,7 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
bne .1 bne .1
jsr CS.RUN.GetFileName jsr CS.RUN.GetFileName
bcs .9 bcs .99
ldx #0 ldx #0
jsr CS.RUN.PrintFN jsr CS.RUN.PrintFN
@ -164,15 +164,15 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
bne .9 bne .9
jsr CS.RUN.GetFileType jsr CS.RUN.GetFileType
bcs .9 bcs .99
jsr CS.RUN.GetFileName jsr CS.RUN.GetFileName
bcs .9 bcs .99
ldx #2 ldx #2
jsr CS.RUN.PrintFN jsr CS.RUN.PrintFN
jsr CS.RUN.OpenFile jsr CS.RUN.OpenFile
bcs .9 bcs .99
*-------------------------------------- *--------------------------------------
jsr CS.RUN.GetByte DATA jsr CS.RUN.GetByte DATA
bcs .8 eof bcs .8 eof
@ -183,15 +183,15 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
>SYSCALL putchar >SYSCALL putchar
jsr CS.RUN.GetByte DataLen LO jsr CS.RUN.GetByte DataLen LO
bcs .9 bcs .99
sta ZPInBufLen sta ZPInBufLen
jsr CS.RUN.GetByte DataLen HI jsr CS.RUN.GetByte DataLen HI
bcs .9 bcs .99
sta ZPInBufLen+1 sta ZPInBufLen+1
jsr CS.RUN.ReadData jsr CS.RUN.ReadData
bcs .9 bcs .99
ldy #1 ldy #1
lda (ZPInBufPtr),y lda (ZPInBufPtr),y
@ -209,7 +209,7 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
bcs .9 bcs .9
jsr CS.RUN.WriteFile jsr CS.RUN.WriteFile
bcs .9 bcs .99
jsr CS.RUN.GetByte jsr CS.RUN.GetByte
bcs .8 bcs .8

4
LIB/LIBPAK.S.txt
View File

@ -520,8 +520,10 @@ Pak.Out.Init lda Pak.Shnk+S.PAKSHNK.BLBITS
*-------------------------------------- *--------------------------------------
Pak.Out.Close bit Pak.Out.Mask Pak.Out.Close bit Pak.Out.Mask
bmi .8 bmi .8
lda Pak.Out.Byte lda Pak.Out.Byte
jmp Pak.Out.PutByte bra Pak.Out.PutByte
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------

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

@ -10,19 +10,22 @@ NEW
* ZPPtr2 * ZPPtr2
* ZPInMask,ZPBLOfsLBits,ZPBLOfsHBits,ZPBLLenBits * ZPInMask,ZPBLOfsLBits,ZPBLOfsHBits,ZPBLLenBits
*-------------------------------------- *--------------------------------------
X.Unpak jsr X.Unpak.GetNextByte CHNK.DATA.T X.Unpak jsr X.Unpak.GetByte CHNK.DATA.T
tax tax
bne X.Unpak.PAK bne X.Unpak.PAK
*-------------------------------------- *--------------------------------------
X.Unpak.STORE ldy #0 X.Unpak.STORE jsr X.Unpak.GetULEN
.1 iny ldy #0
.1 lda (ZPInBufPtr),y
iny
bne .2 bne .2
inc ZPInBufPtr+1 inc ZPInBufPtr+1
.2 lda (ZPInBufPtr),y .2 jsr X.Unpak.PutByte
jsr X.Unpak.PutByte
bne .1 bne .1
clc clc
@ -51,15 +54,9 @@ X.Unpak.PAK pha A = BLBITS
.10 sta ZPBLOfsLBits .10 sta ZPBLOfsLBits
stx ZPBLOfsHBits stx ZPBLOfsHBits
jsr X.Unpak.GetNextByte ULEN LO jsr X.Unpak.GetULEN
eor #$ff
sta ZPnCnt
jsr X.Unpak.GetNextByte ULEN HI
eor #$ff
sta ZPnCnt+1
jsr X.Unpak.GetNextByte get TOPCNT jsr X.Unpak.GetByte get TOPCNT
ldx ZPInBufPtr ZPPtr1 = TOP table ldx ZPInBufPtr ZPPtr1 = TOP table
stx ZPPtr1 stx ZPPtr1
@ -169,6 +166,15 @@ X.Unpak.PAK pha A = BLBITS
clc clc
rts rts
*-------------------------------------- *--------------------------------------
X.Unpak.GetULEN jsr X.Unpak.GetByte ULEN LO
eor #$ff
sta ZPnCnt
jsr X.Unpak.GetByte ULEN HI
eor #$ff
sta ZPnCnt+1
rts
*--------------------------------------
X.Unpak.GetXBitInA X.Unpak.GetXBitInA
lda #0 lda #0
@ -201,8 +207,7 @@ X.Unpak.GetBitInC
.8 plp .8 plp
rts rts
*-------------------------------------- *--------------------------------------
X.Unpak.GetNextByte X.Unpak.GetByte lda (ZPInBufPtr)
lda (ZPInBufPtr)
X.Unpak.NextByte X.Unpak.NextByte
inc ZPInBufPtr inc ZPInBufPtr
bne .8 bne .8