Kernel 0.9.2

SYS/KERNEL.S.ARG.txt

@@ -21,6 +21,11 @@ K.Args2ArgV		pha
 				
 K.Args2ArgV.I	jsr K.ExpandStr
 				bcs .9
+				phy
+				pha
+				>SYSCALL puts
+				pla
+				ply
 				
 				>STYA ZPPtr1
 				stx .80+1

SYS/KERNEL.S.MEM.txt

@@ -378,6 +378,41 @@ K.GetMemByID	sta ZPMemMgrSPtr
 				ldy ZPMemMgrSPtr
 				rts
 */--------------------------------------
+* # GetMemStat
+* **In:**
+*  Y,A = Ptr to 24 bytes buffer
+* ## RETURN VALUE
+*  Buffer filled with memory stats
+*\--------------------------------------
+K.GetMemStat	>STYA ZPMemMgrTmp1
+
+				ldy #22
+				ldx #6
+				
+.1				lda DevMgr.Stat,x
+				sta (ZPMemMgrTmp1),y
+				dey
+				dex
+				bpl .1
+				
+				sta SETREADAUX
+				
+				ldy #14
+				jsr .2
+				
+				sta CLRREADAUX
+				
+				ldy #6
+				
+.2				ldx #6
+				
+.3				lda Mem.Table,x
+				sta (ZPMemMgrTmp1),y
+				dey
+				dex
+				bpl .3
+				rts
+*/--------------------------------------
 * # NewStr
 * Create a new copy of this C-String
 * Y,A = Ptr to source C-String

SYS/KERNEL.S.PS.txt

@@ -16,9 +16,9 @@ PS.Args			.BS 2
 * A = Child PSID
 *\--------------------------------------
 K.ExecL			pha
-				lda #K.Buf256
+				lda #K.IOBuf
 				sta ZPPtr2
-				lda /K.Buf256
+				lda /K.IOBuf
 				sta ZPPtr2+1
 				pla
 				jsr K.Args2ArgV.I
@@ -26,7 +26,12 @@ K.ExecL			pha
 				
 				>RET 1					discard flags				
 
-.1				>LDYAI K.Buf256
+.1				>LDYAI K.IOBuf
+				phy
+				pha
+				>SYSCALL puts
+				pla
+				ply
 */--------------------------------------
 * # ExecV
 * ## C
@@ -59,6 +64,12 @@ K.ExecV			>STYA PS.Args
 				pla
 				>SYSCALL GetMemPtr
 				
+				phy
+				pha
+				>SYSCALL puts
+				pla
+				ply
+				>DEBUG
 				jsr PS.Load
 				bcc .8
 				
@@ -392,41 +403,6 @@ PS.SetMemOwner	lda CORE.LastPSID
 				sta (ZPMEMMGR),y
 				rts
 */--------------------------------------
-* # GetMemStat
-* **In:**
-*  Y,A = Ptr to 24 bytes buffer
-* ## RETURN VALUE
-*  Buffer filled with memory stats
-*\--------------------------------------
-K.GetMemStat	>STYA ZPMemMgrTmp1
-
-				ldy #22
-				ldx #6
-				
-.1				lda DevMgr.Stat,x
-				sta (ZPMemMgrTmp1),y
-				dey
-				dex
-				bpl .1
-				
-				sta SETREADAUX
-				
-				ldy #14
-				jsr .2
-				
-				sta CLRREADAUX
-				
-				ldy #6
-				
-.2				ldx #6
-				
-.3				lda Mem.Table,x
-				sta (ZPMemMgrTmp1),y
-				dey
-				dex
-				bpl .3
-				rts
-*/--------------------------------------
 * # GetPSStatus
 * **In:**
 *  A = PID