mirror of
https://github.com/A2osX/A2osX.git
synced 2024-05-31 16:41:30 +00:00
Kernel 0.94
This commit is contained in:
parent
97ace2a662
commit
4dbe39ffce
Binary file not shown.
|
@ -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
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user