Kernel 0.9.2

BIN/EDIT.S.txt

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

BIN/LSDEV.S.txt

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

BIN/X.CPMVRM.S.txt

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

DRV/CONSOLE.DRV.S.txt

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

DRV/X.SSC.DRV.S.txt

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

INC/A2osX.I.txt

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

INC/LIBTCPIP.I.txt

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

LIB/LIBTCPIP.S.txt

@@ -248,16 +248,16 @@ GetDynPort		inc DYNPORT.LAST
 				clc
 				rts
 *--------------------------------------
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ARP
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ARP
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.CFG
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.CFG
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.DNS
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.DNS
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.FRM
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.FRM
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.HST
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.HST
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ICMP
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.ICMP
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.IP
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.IP
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.SKT
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.SKT
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.TCP
+			.INB /A2OSX.SRC/LIB/LIBTCPIP.S.TCP
-				.INB /A2OSX.SRC/LIB/LIBTCPIP.S.UDP
+			.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

SBIN/KCONFIG.S.txt

@@ -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
+				sec
-*				>LDA.G StatBuf+S.STAT.SIZE
+				>LDA.G StatBuf+S.STAT.SIZE
-*				eor #16
+				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
 				bne .99
 				
-				>PUSHWI 0				Aux type
+				iny
-				>PUSHBI 6				S.FI.T.BIN
+				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
+CS.RUN.Save		>PUSHWI A2osX.KCONFIG
-				>PUSHBI 6				S.FI.T.BIN
+				>PUSHBI S.FI.T.SYS
-				>PUSHBI O.WRONLY+O.CREATE
+				>PUSHBI O.WRONLY+O.CREATE+O.TRUNC
 				
 				>LDA.G hFileName
 				>SYSCALL GetMemPtr

SBIN/SHELL.S.IO.txt

@@ -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 3
-				>PUSHBI 4
+				>PUSHW L.MSG.ERROR
-				>LDYA L.MSG.ERROR
+				ldy #S.PS.hStdErr
-				>SYSCALL printf
+				lda (pPS),y
+				>SYSCALL fprintf
 				rts
 *--------------------------------------
 MAN

SYS/KERNEL.S.DIRENT.txt

@@ -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
+.8				ldx #$ff				Self Modified
-				clc
+				>LDYA ZPPtr2
-				rts
+				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
+				jsr STDIO.GetHFile
-				>STYA pFD
 				
 				ldy #S.FD.DIR.REF
 				lda (pFD),y

SYS/KERNEL.S.INIT.txt

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

SYS/KERNEL.S.IO.txt

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

SYS/KERNEL.S.PFT.txt

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

SYS/KERNEL.S.STDIO.txt

@@ -172,20 +172,20 @@ K.SPrintF		>STYA pIOBuf			Out Buffer
 				>PULLW ZPPtr1			format
 				bra K.PrintF.1
 				
-K.FPrintF		jsr STDIO.GetHFile
+K.FPrintF		pha
-				bcs K.PutS.RTS
-
 				>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