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

View File

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

View File

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