mirror of
https://github.com/A2osX/A2osX.git
synced 2024-05-31 16:41:30 +00:00
Kernel 0.93+
This commit is contained in:
Rémy GIBERT
parent
4634099be7
commit
705d6a5431
Binary file not shown.
|
|
@ -63,7 +63,6 @@ L.MSG.OK .DA MSG.OK
|
|||
L.MSG.ERR .DA MSG.ERR
|
||||
L.MSG.E.IARC .DA MSG.E.IARC
|
||||
L.ARC.Header .DA ARC.Header
|
||||
L.MSG.DBG .DA MSG.DBG
|
||||
.DA 0
|
||||
*--------------------------------------
|
||||
CS.INIT >LDYA L.LIBPAK
|
||||
|
|
@ -486,11 +485,6 @@ CS.RUN.WriteSrcData
|
|||
jsr CS.RUN.WriteArcByteA
|
||||
bcs .9
|
||||
|
||||
>PUSHW.G Shunk.SrcSize
|
||||
>PUSHBI 2
|
||||
>LDYA L.MSG.DBG
|
||||
>SYSCALL printf
|
||||
|
||||
>LDA.G Shunk.SrcSize
|
||||
jsr CS.RUN.WriteArcByteA
|
||||
bcs .9
|
||||
|
|
@ -513,11 +507,6 @@ CS.RUN.WritePakData
|
|||
lda #CHNK.T.DATA
|
||||
jsr CS.RUN.WriteArcByteA
|
||||
bcs .9
|
||||
|
||||
* >PUSHW.G Shunk.DstSize
|
||||
* >PUSHBI 2
|
||||
* >LDYA L.MSG.DBG
|
||||
* >SYSCALL printf
|
||||
|
||||
>LDA.G Shunk.DstSize
|
||||
jsr CS.RUN.WriteArcByteA
|
||||
|
|
@ -610,7 +599,6 @@ MSG.ERR .AZ "[%h]\r\n"
|
|||
MSG.E.IARC .AZ "Invalid/corrupt archive"
|
||||
MSG.DIR .AZ "Reading Dir:%s..."
|
||||
MSG.FILE .AZ "Adding File:%s..."
|
||||
MSG.DBG .AZ "%H"
|
||||
ARC.Header .AZ "PAK"
|
||||
*--------------------------------------
|
||||
LIBPAK .AZ "libpak"
|
||||
|
|
|
|||
|
|
@ -56,10 +56,7 @@ L.MSG.USAGE .DA MSG.USAGE
|
|||
L.MSG.DIR .DA MSG.DIR
|
||||
L.MSG.FILE .DA MSG.FILE
|
||||
L.MSG.OK .DA MSG.OK
|
||||
L.MSG.ERR .DA MSG.ERR
|
||||
L.MSG.E.IARC .DA MSG.E.IARC
|
||||
L.MSG.E.OFS .DA MSG.E.OFS
|
||||
L.MSG.DBG .DA MSG.DBG
|
||||
.DA 0
|
||||
*--------------------------------------
|
||||
CS.INIT clc
|
||||
|
|
@ -204,20 +201,15 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
|
|||
lda (ZPInBufPtr),y
|
||||
sta ZPOutBufLen+1
|
||||
|
||||
* >PUSHW ZPOutBufLen
|
||||
* >PUSHBI 2
|
||||
* >LDYA L.MSG.DBG
|
||||
* >SYSCALL printf
|
||||
|
||||
>LDA.G hOutBuf
|
||||
>SYSCALL getmemptr
|
||||
>STYA ZPOutBufPtr
|
||||
|
||||
jsr X.Unpak
|
||||
.90 bcs .9
|
||||
bcs .9
|
||||
|
||||
jsr CS.RUN.WriteFile
|
||||
bcs .90
|
||||
bcs .9
|
||||
|
||||
jsr CS.RUN.GetByte
|
||||
bcs .8
|
||||
|
|
@ -268,8 +260,9 @@ CS.RUN.OpenArc pha
|
|||
.9 rts
|
||||
|
||||
.99
|
||||
CS.RUN.E.IARC >LDYA L.MSG.E.IARC
|
||||
>SYSCALL puts
|
||||
CS.RUN.E.IARC >PUSHBI 0
|
||||
>LDYA L.MSG.E.IARC
|
||||
>SYSCALL printf
|
||||
lda #E.SYN
|
||||
sec
|
||||
rts
|
||||
|
|
@ -385,11 +378,8 @@ MSG.USAGE .AZ "Usage : UNPAK Archive [DstDir]\r\n"
|
|||
MSG.DIR .AZ "Creating Dir:%s..."
|
||||
MSG.FILE .AZ "Extracting File:%s..."
|
||||
MSG.OK .AZ "[OK]"
|
||||
MSG.ERR .AZ "[%h]\r\n"
|
||||
MSG.E.IARC .AZ "Invalid/corrupt archive"
|
||||
MSG.E.OFS .AZ "UnPak Error at Offset : %L\r\n"
|
||||
MSG.E.IARC .AZ "\r\nInvalid/corrupt archive"
|
||||
MSG.PAK .AS "PAK"
|
||||
MSG.DBG .AZ "%H"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR 0
|
||||
|
|
|
|||
|
|
@ -88,7 +88,6 @@ X.Unpak.PAK pha A = BLBITS
|
|||
* TOP8
|
||||
ldx #3
|
||||
jsr X.Unpak.GetXBitInA
|
||||
|
||||
bra .51
|
||||
*--------------------------------------
|
||||
.4 jsr X.Unpak.GetBitInC
|
||||
|
|
@ -97,7 +96,6 @@ X.Unpak.PAK pha A = BLBITS
|
|||
ldx #3
|
||||
jsr X.Unpak.GetXBitInA
|
||||
ora #%1000
|
||||
|
||||
bra .51
|
||||
*--------------------------------------
|
||||
.5 jsr X.Unpak.GetBitInC
|
||||
|
|
@ -111,9 +109,10 @@ X.Unpak.PAK pha A = BLBITS
|
|||
lda (ZPPtr1),y
|
||||
|
||||
.52 jsr X.Unpak.PutByte
|
||||
beq .99
|
||||
|
||||
bra .80
|
||||
bne .80
|
||||
|
||||
.99 sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
* BACKLINK : 1111 OfsLBits OfsHBits LenBits
|
||||
|
||||
|
|
@ -150,21 +149,25 @@ X.Unpak.PAK pha A = BLBITS
|
|||
|
||||
.62 lda (ZPPtr2),y
|
||||
jsr X.Unpak.PutByte
|
||||
beq .99
|
||||
bne .63
|
||||
|
||||
iny
|
||||
dex
|
||||
bne .99
|
||||
|
||||
clc
|
||||
rts
|
||||
|
||||
.63 iny
|
||||
dex
|
||||
bne .62
|
||||
|
||||
.80 lda ZPnCnt
|
||||
ora ZPnCnt+1
|
||||
and ZPnCnt+1
|
||||
inc
|
||||
bne .2
|
||||
|
||||
clc
|
||||
rts
|
||||
|
||||
.99 sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
X.Unpak.GetXBitInA
|
||||
lda #0
|
||||
|
|
|
|||
|
|
@ -433,13 +433,14 @@ PWD.GetRecordLen
|
|||
|
||||
lda #':'
|
||||
jsr PWD.StoreChar
|
||||
iny S.PW.UID
|
||||
|
||||
ldy #S.PW.GID
|
||||
jsr SHARED.TXTPTR.GetY
|
||||
jsr PWD.StoreByte
|
||||
lda #':'
|
||||
jsr PWD.StoreChar
|
||||
|
||||
* iny S.PW.GECOS
|
||||
ldy #S.PW.GECOS-1
|
||||
|
||||
jsr PWD.StoreString
|
||||
lda #':'
|
||||
|
|
|
|||
|
|
@ -438,7 +438,9 @@ DRV.TERM.CSI ldy #S.DCB.TTY.INBUFFER
|
|||
bcs DRV.TERM.CSI.Exec
|
||||
cpy #S.DCB.TTY.INBUFFER.MAX-1 buffer full?
|
||||
bne .8
|
||||
|
||||
jsr RESET.MODE
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
|
||||
|
|
@ -488,8 +490,10 @@ DRV.TERM.CSI.Exec
|
|||
|
||||
.6 cmp CsiCodes,x
|
||||
beq .7
|
||||
|
||||
dex
|
||||
bne .6
|
||||
bpl .6
|
||||
|
||||
clc
|
||||
rts
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user