Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-08-25 08:01:56 +02:00
parent 97ace2a662
commit 4dbe39ffce
4 changed files with 14 additions and 9 deletions

Binary file not shown.

View File

@ -165,6 +165,7 @@ IO.Exec >PUSHW ZPArgVBufPtr
IO.PrintBatchErrMsg IO.PrintBatchErrMsg
>LDYA ZPInputBuf >LDYA ZPInputBuf
>STYA ZPPtr1 >STYA ZPPtr1
ldy #S.PS.RC ldy #S.PS.RC
lda (pPS),y lda (pPS),y
cmp #E.SYN cmp #E.SYN
@ -176,6 +177,7 @@ IO.PrintBatchErrMsg
.10 >LDYA ZPInputBufPtr .10 >LDYA ZPInputBufPtr
.11 >STYA ZPPtr2 .11 >STYA ZPPtr2
stz ZPTmpW Line Count stz ZPTmpW Line Count
stz ZPTmpW+1 stz ZPTmpW+1
@ -191,6 +193,7 @@ IO.PrintBatchErrMsg
cmp #C.CR cmp #C.CR
bne .3 Scan until EoL bne .3 Scan until EoL
.4 tya .4 tya
clc clc
adc ZPPtr1 adc ZPPtr1
@ -203,9 +206,12 @@ IO.PrintBatchErrMsg
sbc ZPPtr2+1 sbc ZPPtr2+1
pla pla
bcs .41 bcs .41
inx inx
bne .40 bne .40
inc inc
.40 stx ZPPtr1 .40 stx ZPPtr1
sta ZPPtr1+1 sta ZPPtr1+1
bra .1 bra .1

View File

@ -85,7 +85,7 @@ CS.RUN >LDYAI CHNK.SIZE
>STA.G hFullPath >STA.G hFullPath
lda #2 lda #2
>SYSCALL Argv >SYSCALL ArgV
bcc .1 bcc .1
ldy #S.PS.hCWD ldy #S.PS.hCWD
@ -373,7 +373,7 @@ CS.QUIT >LDA.G hFile
.8 clc .8 clc
rts rts
*-------------------------------------- *--------------------------------------
.INB USR/SRC/SHARED/X.UNPAK.S .INB usr/src/shared/x.unpak.s
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.USAGE .AZ "Usage : UNPAK Archive [DstDir]\r\n" MSG.USAGE .AZ "Usage : UNPAK Archive [DstDir]\r\n"

View File

@ -1,6 +1,5 @@
NEW NEW
AUTO 3,1 AUTO 3,1
.LIST OFF
*-------------------------------------- *--------------------------------------
* ZPInBufPtr = Ptr to Shunk Data * ZPInBufPtr = Ptr to Shunk Data
* ZPOutBufPtr = Ptr to Uncompressed Data * ZPOutBufPtr = Ptr to Uncompressed Data
@ -164,7 +163,7 @@ X.Unpak.PAK pha A = BLBITS
.63 iny .63 iny
dex dex
bne .62 bne .62
.80 lda ZPnCnt .80 lda ZPnCnt
and ZPnCnt+1 and ZPnCnt+1
@ -236,11 +235,11 @@ X.Unpak.PutByte inc ZPnCnt
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
.LIST ON * .LIST ON
X.Unpak.Size .EQ *-X.Unpak *X.Unpak.Size .EQ *-X.Unpak
.LIST OFF * .LIST OFF
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/SHARED/X.UNPAK.S SAVE usr/src/shared/x.unpak.s
LOAD USR/SRC/BIN/UNPAK.S LOAD usr/src/bin/unpak.s
ASM ASM