Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-03-20 13:32:23 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-10-16 22:42:21 +02:00
parent 4634099be7
commit 705d6a5431
6 changed files with 28 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

12
BIN/PAK.S.txt
View File

@ -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"

22
BIN/UNPAK.S.txt
View File

@ -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

25
SHARED/X.UNPAK.S.txt
View File

@ -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

5
SYS/KERNEL.S.PWDX.txt
View File

@ -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 #':'

6
SYS/KERNEL.S.TERM.txt
View File

@ -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