TempleOSCDV4.11.ISO

Demo/MemDemo.HC

@@ -0,0 +1,64 @@
+U0 MemDemo()
+{
+  I64 i;
+"$$HL,1$$$$BLACK$$
+#define MEM_PAGE_BITS		9
+#define MEM_PAGE_SIZE		(1<<MEM_PAGE_BITS)
+#define MEM_HEAP_HASH_SIZE	1024
+#define MEM_FREE_PAGE_HASH_SIZE	0x100
+#define MEM_EXTRA_HASH2_PAGES	2
+
+public class CBlkPool
+{
+  CMemBlk *free_page_hash[MEM_FREE_PAGE_HASH_SIZE],
+	  *free_page_hash2[64-MEM_PAGE_BITS];
+};
+
+public class CHeapCtrl
+{
+  CBlkPool *bp;
+  CMemUnused *heap_hash[MEM_HEAP_HASH_SIZE/sizeof(U8 *)];
+};
+
+public class CTask //The Fs segment reg points to current CTask.
+{
+  CHeapCtrl *code_heap,*data_heap;
+};
+$$HL,0$$$$FG$$
+
+";
+
+
+  "$$PURPLE$$Chunks in increments of 8 bytes, owned by the task.$$FG$$\n";
+  for (i=sizeof(CMemUnused);i<MEM_HEAP_HASH_SIZE;i+=8)
+    if (i==0x48)
+      "...\n";
+    else if (!(0x48<i<0x3C8))
+      "Fs->data_heap->heap_hash[%X/8]"
+	  "$$BLACK$$ -->$$FG$$[X]$$BLACK$$ -->$$FG$$[X]$$BLACK$$ -->$$FG$$\n",i;
+  "\n\n";
+
+  "$$PURPLE$$Pages of 512 bytes, owned by the system.$$FG$$\n";
+  for (i=MEM_HEAP_HASH_SIZE;i<MEM_FREE_PAGE_HASH_SIZE*MEM_PAGE_SIZE;
+	i+=MEM_PAGE_SIZE)
+    if (i==0x1200)
+      "...\n";
+    else if (!(0x1200<i<0x1F200))
+      "Fs->data_heap->bp->free_page_hash[%X/512]"
+	  "$$BLACK$$ -->$$FG$$[X]$$BLACK$$ -->$$FG$$[X]$$BLACK$$ -->$$FG$$\n",i;
+  "\n\n";
+
+  "$$PURPLE$$Powers of two, owned by the system.$$FG$$\n";
+  for (i=Bsf(MEM_FREE_PAGE_HASH_SIZE*MEM_PAGE_SIZE);i<64;i++)
+    if (i==0x1A)
+      "...\n";
+    else if (!(0x1A<=i<=0x36))
+      "Fs->data_heap->bp->free_page_hash2[%X] %016X"
+	  "$$BLACK$$ -->$$FG$$[X]$$BLACK$$ -->$$FG$$[X]$$BLACK$$ -->$$FG$$\n",i,
+	  1<<i+MEM_EXTRA_HASH2_PAGES*MEM_PAGE_SIZE;
+  "\n\n";
+}
+
+MemDemo;
+
+