mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-12 20:29:41 +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
|
||||
>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
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -1,6 +1,5 @@
|
|||
NEW
|
||||
AUTO 3,1
|
||||
.LIST OFF
|
||||
*--------------------------------------
|
||||
* ZPInBufPtr = Ptr to Shunk Data
|
||||
* ZPOutBufPtr = Ptr to Uncompressed Data
|
||||
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user