diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 57b914f2..0191f191 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 514402c0..69ecfde9 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/SYS/KERNEL.S.ARG.txt b/SYS/KERNEL.S.ARG.txt index d793dd47..c770091a 100644 --- a/SYS/KERNEL.S.ARG.txt +++ b/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 diff --git a/SYS/KERNEL.S.MEM.txt b/SYS/KERNEL.S.MEM.txt index 24ae518e..de6fce9c 100644 --- a/SYS/KERNEL.S.MEM.txt +++ b/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 diff --git a/SYS/KERNEL.S.PS.txt b/SYS/KERNEL.S.PS.txt index 6d84d493..3ff1c556 100644 --- a/SYS/KERNEL.S.PS.txt +++ b/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