Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-10-08 07:55:28 +02:00
parent 17a6e2cb8f
commit 505259be4a
17 changed files with 72 additions and 65 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.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

1
BIN/EDIT.S.txt
View File

@ -8,6 +8,7 @@ AUTO 4,1
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/MLI.I
*--------------------------------------
ZPPTR1 .EQ ZPBIN
ZPPTR2 .EQ ZPBIN+2

2
BIN/LSDEV.S.txt
View File

@ -46,7 +46,7 @@ CS.RUN >LDYA L.MSG0
>SYSCALL puts
>LDA.G DEV.ID
.1 >SYSCALL GetDevByID
bcs .7

4
BIN/X.CPMVRM.S.txt
View File

@ -132,10 +132,6 @@ CS.INIT
.FIN
* lda (pPs)
* ora #S.PS.F.EVENT Now accept events
* sta (pPs)
clc
rts
*--------------------------------------

2
DRV/CONSOLE.DRV.S.txt
View File

@ -46,9 +46,9 @@ Dev.Detect >LDYA L.MSG.DETECT
>SYSCALL MKDEV
.9 rts
*--------------------------------------
CS.END
MSG.DETECT .AZ "Apple IIe/IIc 80 Col Driver."
*--------------------------------------
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
.DA #0 BUSID

6
DRV/X.SSC.DRV.S.txt
View File

@ -228,7 +228,7 @@ STATUS jsr STATUS.CONTROL.Init
.1 ldy #3
.2 lda DIB,y
sta (ZPIOCTL),y
sta (ZPBufPtr),y
dey
bpl .2
@ -241,7 +241,7 @@ STATUS.DCB cmp #S.IOCTL.STATCODE.GETDCB
ldy #S.DCB.COM-1
.2 lda DCB,y
sta (ZPIOCTL),y
sta (ZPBufPtr),y
dey
bpl .2
@ -261,7 +261,7 @@ CONTROL jsr STATUS.CONTROL.Init
ldy #S.DCB.COM-1
.2 lda (ZPIOCTL),y
.2 lda (ZPBufPtr),y
sta DCB,y
dey
bpl .2

1
INC/A2osX.I.txt
View File

@ -56,6 +56,7 @@ A2osX.RANDOM16 .EQ $BEEE WORD
*--------------------------------------
* $BEF0->$BEFF : Kernel Config Block
*--------------------------------------
A2osX.KCONFIG .EQ $BEF0
A2osX.HZ .EQ $BEF0 5/6 for 50/60Hz
A2osX.F .EQ $BEF8
A2osX.F.CHROOT .EQ %10000000 ChRooting to /RAMx

2
INC/LIBTCPIP.I.txt
View File

@ -289,3 +289,5 @@ S.DNS.QCLASS.IN .EQ 1
*--------------------------------------
MAN
SAVE /A2OSX.BUILD/INC/LIBTCPIP.I
LOAD /A2OSX.SRC/LIB/LIBTCPIP.S
ASM

22
LIB/LIBTCPIP.S.txt
View File

@ -248,16 +248,16 @@ GetDynPort inc DYNPORT.LAST
clc
rts
*--------------------------------------
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ARP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.CFG
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.DNS
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.FRM
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.HST
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ICMP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.IP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.SKT
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.TCP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.UDP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ARP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.CFG
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.DNS
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.FRM
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.HST
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ICMP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.IP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.SKT
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.TCP
.INB /A2OSX.SRC/LIB/LIBTCPIP.S.UDP
*--------------------------------------
CS.END
*--------------------------------------
@ -315,7 +315,7 @@ FD.SSOCK .DA #S.FD.T.SSOCK
*--------------------------------------
.DA #AF.INET S.SOCKET.AF
.DA #S.SOCKET.T.STREAM
.BS #S.IP.PROTOCOL.TCP
.DA #S.IP.PROTOCOL.TCP
FD.SSOCK.SIZE .EQ *-FD.SSOCK
*--------------------------------------
IOCTL .BS S.IOCTL

43
SBIN/KCONFIG.S.txt
View File

@ -7,6 +7,7 @@ AUTO 4,1
.TF SBIN/KCONFIG
*--------------------------------------
.INB INC/MACROS.I
.INB INC/MLI.I
.INB INC/A2OSX.I
*--------------------------------------
ZPCfgPtr .EQ ZPBIN
@ -84,7 +85,7 @@ CS.RUN >LDYA L.FILENAME
>LDYA L.MSG.KCONF
>SYSCALL printf
>LDYAI A2osX.HZ
>LDYAI A2osX.KCONFIG
jsr CS.RUN.DumpConfYA
>PUSHBI 0
>LDYA L.MSG.STATUSBAR
@ -169,25 +170,25 @@ CS.RUN.Load >PUSHEA.G StatBuf
>SYSCALL Stat
bcs .99
* sec
* >LDA.G StatBuf+S.STAT.SIZE
* eor #16
* bne .99
* iny
* lda (pData),y
* iny
* ora (pData),y
* iny
* ora (pData),y
* bne .99
>LDA.G StatBuf+S.STAT.P.TYPE
eor #6
sec
>LDA.G StatBuf+S.STAT.SIZE
eor #16
bne .99
>PUSHWI 0 Aux type
>PUSHBI 6 S.FI.T.BIN
iny
lda (pData),y
iny
ora (pData),y
iny
ora (pData),y
bne .99
>LDA.G StatBuf+S.STAT.P.TYPE
eor #S.FI.T.SYS
bne .99
>PUSHWI A2osX.KCONFIG
>PUSHBI S.FI.T.SYS
>PUSHBI O.RDONLY
>LDA.G hFileName
>SYSCALL GetMemPtr
@ -215,9 +216,9 @@ CS.RUN.Load >PUSHEA.G StatBuf
sec
rts
*--------------------------------------
CS.RUN.Save >PUSHWI 0 AUXTYPE
>PUSHBI 6 S.FI.T.BIN
>PUSHBI O.WRONLY+O.CREATE
CS.RUN.Save >PUSHWI A2osX.KCONFIG
>PUSHBI S.FI.T.SYS
>PUSHBI O.WRONLY+O.CREATE+O.TRUNC
>LDA.G hFileName
>SYSCALL GetMemPtr

12
SBIN/SHELL.S.IO.txt
View File

@ -34,13 +34,15 @@ IO.PrintErrMsg pha Save EC for PrintF
inc ZPPTR1+1
bra .3
.8 >PUSHW ZPPTR1
.8
>PUSHW ZPPTR1
pla
>PUSHA
>PUSHBI 4
>LDYA L.MSG.ERROR
>SYSCALL printf
>PUSHBI 3
>PUSHW L.MSG.ERROR
ldy #S.PS.hStdErr
lda (pPS),y
>SYSCALL fprintf
rts
*--------------------------------------
MAN

15
SYS/KERNEL.S.DIRENT.txt
View File

@ -34,7 +34,7 @@ K.OpenDir jsr PFT.CheckPathYA
lda (ZPPtr2),y One char ?
beq .8 No, Go open dir....
.7 >MLICALL MLIGETFILEINFO
>MLICALL MLIGETFILEINFO
bcs .98 file/dir does not exists....quit
lda K.MLI.PARAMS+4
cmp #$0F Directory ?
@ -51,13 +51,15 @@ K.OpenDir jsr PFT.CheckPathYA
ldy #S.FD.DIR.REF
sta (pFD),y
.8 lda #$ff Self Modified
clc
rts
.8 ldx #$ff Self Modified
>LDYA ZPPtr2
jsr STDIO.NewHFileYAX
bcc .99
.98 pha save MLI error
lda .8+1
jsr K.FClose =K.CloseDir
jsr K.Close
pla get back MLI error
sec
.99 rts
@ -87,8 +89,7 @@ K.ReadDir.EPB .BS 1
K.ReadDir.EC .BS 2
*--------------------------------------
K.ReadDir jsr PFT.CheckNodeA
jsr K.GetMemPtr
>STYA pFD
jsr STDIO.GetHFile
ldy #S.FD.DIR.REF
lda (pFD),y

2
SYS/KERNEL.S.INIT.txt
View File

@ -1067,7 +1067,7 @@ A2OSXCONF >PSTR "A2osX.KCONFIG"
*--------------------------------------
MLIREAD00 .DA #4
.BS 1
.DA A2osX.HZ
.DA A2osX.KCONFIG
.DA 16
.BS 2
*--------------------------------------

11
SYS/KERNEL.S.IO.txt
View File

@ -20,15 +20,16 @@ K.Open.AUXTYPE .BS 2
*--------------------------------------
K.Open pha
>PULLB K.Open.FLAGS
pla
IO.Open.I jsr STDIO.SetMLIPathYA
lda #S.FI.T.TXT
sta K.Open.TYPE
stz K.Open.AUXTYPE
stz K.Open.AUXTYPE+1
pla
IO.Open.I jsr STDIO.SetMLIPathYA
ldx #5 $/DEV/
cpx K.MLI.PATH
bcs IO.OPEN.REG
@ -39,7 +40,7 @@ IO.Open.I jsr STDIO.SetMLIPathYA
dex
bne .1
*--------------------------------------
* CDEV,BDEV,DSOCK,SSOCK,PIPE
* /DEV/xxxxxx (CDEV,BDEV,DSOCK,SSOCK,PIPE)
*--------------------------------------
>LDYAI K.MLI.PATH+6 skip $/DEV/

4
SYS/KERNEL.S.PFT.txt
View File

@ -74,7 +74,9 @@ PFT.CheckPathYA >STYA ZPPtr1
* PULLB/A = hFILE/hDIR
* Out :
*--------------------------------------
PFT.CheckNodeA sta .9+1 save hFILE
PFT.CheckNodeA rts
sta .9+1 save hFILE
jsr K.GetMemPtr X = unmodified
>STYA ZPPtr1

10
SYS/KERNEL.S.STDIO.txt
View File

@ -172,20 +172,20 @@ K.SPrintF >STYA pIOBuf Out Buffer
>PULLW ZPPtr1 format
bra K.PrintF.1
K.FPrintF jsr STDIO.GetHFile
bcs K.PutS.RTS
K.FPrintF pha
>PULLW ZPPtr1 format
pla
bra K.PrintF.0
K.PrintF >STYA ZPPtr1 format
ldy #S.PS.hStdOut
lda (pPs),y
jsr STDIO.GetHFile
K.PrintF.0 jsr STDIO.GetHFile
bcs K.PutS.RTS
K.PrintF.0 >LDYAI K.IOBuf
>LDYAI K.IOBuf
>STYA pIOBuf
K.PrintF.1 stz PrintF.Cnt