command to see memory allocation status

assets/disk0/malloc.js

@@ -0,0 +1,2 @@
+let [blockSize, blockCount] = sys.getMallocStatus()
+println(`${blockSize * blockCount} bytes allocated (${blockCount} blocks with ${blockSize} bytes per block)`)

tsvm_core/src/net/torvald/tsvm/VMJSR223Delegate.kt

@@ -169,6 +169,10 @@ class VMJSR223Delegate(val vm: VM) {
     fun unsetSysrq() {
         vm.sysrqDown = false
     }
+
+    fun getMallocStatus(): IntArray {
+        return intArrayOf(vm.MALLOC_UNIT, vm.allocatedBlockCount)
+    }
 }
 
 class VMSerialDebugger(val vm: VM) {