shapetest ported and i have no idea what it dose

diff --git a/DEBUG.16W b/DEBUG.16W
index f401ae960c5473895611d5f6ee38de861945daf5..18505d711205c9257277ad40e896318cd85ac9a1 100755 (executable)
--- a/DEBUG.16W
+++ b/DEBUG.16W
@@ -1,210 +1,210 @@
-\e[0mSeg:0      Size:8973       Owner:0x0\r
+\e[0mSeg:0      Size:9008       Owner:0x0\r
 \e[41;31m+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m\e[42;32m0000\r
-\e[0m\e[0mSeg:23fe       Size:39 Owner:0x0\r
-\e[41;31m+\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2425       Size:256        Owner:0x1dc4\r
+\e[0m\e[0mSeg:2421       Size:39 Owner:0x0\r
+\e[41;31m++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2448       Size:256        Owner:0x1dc4\r
 \e[44;34m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2525       Size:256        Owner:0x1bb6\r
-\e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2625       Size:256        Owner:0x1bb8\r
-\e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2725       Size:256        Owner:0x1bba\r
+\e[0m\e[0mSeg:2548       Size:256        Owner:0x1bb6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2825       Size:256        Owner:0x1bbc\r
+\e[0m\e[0mSeg:2648       Size:256        Owner:0x1bb8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2925       Size:256        Owner:0x1bbe\r
+\e[0m\e[0mSeg:2748       Size:256        Owner:0x1bba\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2a25       Size:256        Owner:0x1bc0\r
+\e[0m\e[0mSeg:2848       Size:256        Owner:0x1bbc\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2b25       Size:256        Owner:0x1bc2\r
+\e[0m\e[0mSeg:2948       Size:256        Owner:0x1bbe\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2c25       Size:256        Owner:0x1bc4\r
+\e[0m\e[0mSeg:2a48       Size:256        Owner:0x1bc0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2d25       Size:256        Owner:0x1bc6\r
+\e[0m\e[0mSeg:2b48       Size:256        Owner:0x1bc2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2e25       Size:256        Owner:0x1bc8\r
+\e[0m\e[0mSeg:2c48       Size:256        Owner:0x1bc4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2f25       Size:256        Owner:0x1bca\r
+\e[0m\e[0mSeg:2d48       Size:256        Owner:0x1bc6\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3025       Size:256        Owner:0x1bcc\r
+\e[0m\e[0mSeg:2e48       Size:256        Owner:0x1bc8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3125       Size:256        Owner:0x1bce\r
+\e[0m\e[0mSeg:2f48       Size:256        Owner:0x1bca\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3225       Size:256        Owner:0x1bd0\r
+\e[0m\e[0mSeg:3048       Size:256        Owner:0x1bcc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3325       Size:256        Owner:0x1bd2\r
+\e[0m\e[0mSeg:3148       Size:256        Owner:0x1bce\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3425       Size:256        Owner:0x1bd4\r
+\e[0m\e[0mSeg:3248       Size:256        Owner:0x1bd0\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3525       Size:256        Owner:0x1bd6\r
+\e[0m\e[0mSeg:3348       Size:256        Owner:0x1bd2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3625       Size:256        Owner:0x1bd8\r
+\e[0m\e[0mSeg:3448       Size:256        Owner:0x1bd4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3725       Size:256        Owner:0x1bda\r
+\e[0m\e[0mSeg:3548       Size:256        Owner:0x1bd6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3825       Size:256        Owner:0x1bdc\r
+\e[0m\e[0mSeg:3648       Size:256        Owner:0x1bd8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3925       Size:256        Owner:0x1bde\r
+\e[0m\e[0mSeg:3748       Size:256        Owner:0x1bda\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3a25       Size:256        Owner:0x1be0\r
+\e[0m\e[0mSeg:3848       Size:256        Owner:0x1bdc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3b25       Size:256        Owner:0x1be2\r
+\e[0m\e[0mSeg:3948       Size:256        Owner:0x1bde\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3c25       Size:256        Owner:0x1be4\r
+\e[0m\e[0mSeg:3a48       Size:256        Owner:0x1be0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3d25       Size:256        Owner:0x1be6\r
+\e[0m\e[0mSeg:3b48       Size:256        Owner:0x1be2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3e25       Size:256        Owner:0x1be8\r
+\e[0m\e[0mSeg:3c48       Size:256        Owner:0x1be4\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3f25       Size:256        Owner:0x1bea\r
+\e[0m\e[0mSeg:3d48       Size:256        Owner:0x1be6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4025       Size:256        Owner:0x1bec\r
+\e[0m\e[0mSeg:3e48       Size:256        Owner:0x1be8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4125       Size:256        Owner:0x1bee\r
+\e[0m\e[0mSeg:3f48       Size:256        Owner:0x1bea\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4225       Size:256        Owner:0x1bf0\r
+\e[0m\e[0mSeg:4048       Size:256        Owner:0x1bec\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4325       Size:256        Owner:0x1bf2\r
+\e[0m\e[0mSeg:4148       Size:256        Owner:0x1bee\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4425       Size:256        Owner:0x1bf4\r
+\e[0m\e[0mSeg:4248       Size:256        Owner:0x1bf0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4525       Size:256        Owner:0x1bf6\r
+\e[0m\e[0mSeg:4348       Size:256        Owner:0x1bf2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4625       Size:256        Owner:0x1bf8\r
+\e[0m\e[0mSeg:4448       Size:256        Owner:0x1bf4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4725       Size:256        Owner:0x1bfa\r
+\e[0m\e[0mSeg:4548       Size:256        Owner:0x1bf6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4825       Size:256        Owner:0x1bfc\r
+\e[0m\e[0mSeg:4648       Size:256        Owner:0x1bf8\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4925       Size:256        Owner:0x1bfe\r
+\e[0m\e[0mSeg:4748       Size:256        Owner:0x1bfa\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4a25       Size:256        Owner:0x1c00\r
+\e[0m\e[0mSeg:4848       Size:256        Owner:0x1bfc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4b25       Size:256        Owner:0x1c02\r
+\e[0m\e[0mSeg:4948       Size:256        Owner:0x1bfe\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4c25       Size:256        Owner:0x1c04\r
+\e[0m\e[0mSeg:4a48       Size:256        Owner:0x1c00\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4d25       Size:256        Owner:0x1c06\r
+\e[0m\e[0mSeg:4b48       Size:256        Owner:0x1c02\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4e25       Size:256        Owner:0x1c08\r
+\e[0m\e[0mSeg:4c48       Size:256        Owner:0x1c04\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4f25       Size:256        Owner:0x1c0a\r
+\e[0m\e[0mSeg:4d48       Size:256        Owner:0x1c06\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5025       Size:256        Owner:0x1c0c\r
+\e[0m\e[0mSeg:4e48       Size:256        Owner:0x1c08\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5125       Size:256        Owner:0x1c0e\r
+\e[0m\e[0mSeg:4f48       Size:256        Owner:0x1c0a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5225       Size:256        Owner:0x1c10\r
+\e[0m\e[0mSeg:5048       Size:256        Owner:0x1c0c\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5325       Size:256        Owner:0x1c12\r
+\e[0m\e[0mSeg:5148       Size:256        Owner:0x1c0e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5425       Size:256        Owner:0x1c14\r
+\e[0m\e[0mSeg:5248       Size:256        Owner:0x1c10\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5525       Size:256        Owner:0x1c16\r
+\e[0m\e[0mSeg:5348       Size:256        Owner:0x1c12\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5625       Size:256        Owner:0x1c18\r
+\e[0m\e[0mSeg:5448       Size:256        Owner:0x1c14\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5725       Size:256        Owner:0x1c1a\r
+\e[0m\e[0mSeg:5548       Size:256        Owner:0x1c16\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5825       Size:256        Owner:0x1c1c\r
+\e[0m\e[0mSeg:5648       Size:256        Owner:0x1c18\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5925       Size:256        Owner:0x1c1e\r
+\e[0m\e[0mSeg:5748       Size:256        Owner:0x1c1a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5a25       Size:256        Owner:0x1c20\r
+\e[0m\e[0mSeg:5848       Size:256        Owner:0x1c1c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5b25       Size:256        Owner:0x1c22\r
+\e[0m\e[0mSeg:5948       Size:256        Owner:0x1c1e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5c25       Size:256        Owner:0x1c24\r
+\e[0m\e[0mSeg:5a48       Size:256        Owner:0x1c20\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5d25       Size:256        Owner:0x1c26\r
+\e[0m\e[0mSeg:5b48       Size:256        Owner:0x1c22\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5e25       Size:256        Owner:0x1c28\r
+\e[0m\e[0mSeg:5c48       Size:256        Owner:0x1c24\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5f25       Size:256        Owner:0x1c2a\r
+\e[0m\e[0mSeg:5d48       Size:256        Owner:0x1c26\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6025       Size:256        Owner:0x1c2c\r
+\e[0m\e[0mSeg:5e48       Size:256        Owner:0x1c28\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6125       Size:256        Owner:0x1c2e\r
+\e[0m\e[0mSeg:5f48       Size:256        Owner:0x1c2a\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6225       Size:256        Owner:0x1c30\r
+\e[0m\e[0mSeg:6048       Size:256        Owner:0x1c2c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6325       Size:256        Owner:0x1c32\r
+\e[0m\e[0mSeg:6148       Size:256        Owner:0x1c2e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6425       Size:256        Owner:0x1c34\r
+\e[0m\e[0mSeg:6248       Size:256        Owner:0x1c30\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6525       Size:256        Owner:0x1c36\r
+\e[0m\e[0mSeg:6348       Size:256        Owner:0x1c32\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6625       Size:256        Owner:0x1c38\r
+\e[0m\e[0mSeg:6448       Size:256        Owner:0x1c34\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6725       Size:256        Owner:0x1c3a\r
+\e[0m\e[0mSeg:6548       Size:256        Owner:0x1c36\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6825       Size:256        Owner:0x1c3c\r
+\e[0m\e[0mSeg:6648       Size:256        Owner:0x1c38\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6925       Size:256        Owner:0x1c3e\r
+\e[0m\e[0mSeg:6748       Size:256        Owner:0x1c3a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6a25       Size:256        Owner:0x1c40\r
+\e[0m\e[0mSeg:6848       Size:256        Owner:0x1c3c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6b25       Size:256        Owner:0x1c42\r
+\e[0m\e[0mSeg:6948       Size:256        Owner:0x1c3e\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6c25       Size:256        Owner:0x1c44\r
+\e[0m\e[0mSeg:6a48       Size:256        Owner:0x1c40\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6d25       Size:256        Owner:0x1c46\r
+\e[0m\e[0mSeg:6b48       Size:256        Owner:0x1c42\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6e25       Size:256        Owner:0x1c48\r
+\e[0m\e[0mSeg:6c48       Size:256        Owner:0x1c44\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6f25       Size:256        Owner:0x1c4a\r
+\e[0m\e[0mSeg:6d48       Size:256        Owner:0x1c46\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7025       Size:256        Owner:0x1c4c\r
+\e[0m\e[0mSeg:6e48       Size:256        Owner:0x1c48\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7125       Size:256        Owner:0x1c4e\r
+\e[0m\e[0mSeg:6f48       Size:256        Owner:0x1c4a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7225       Size:256        Owner:0x1c50\r
+\e[0m\e[0mSeg:7048       Size:256        Owner:0x1c4c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7325       Size:256        Owner:0x1c52\r
+\e[0m\e[0mSeg:7148       Size:256        Owner:0x1c4e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7425       Size:256        Owner:0x1c54\r
+\e[0m\e[0mSeg:7248       Size:256        Owner:0x1c50\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7525       Size:256        Owner:0x1c56\r
+\e[0m\e[0mSeg:7348       Size:256        Owner:0x1c52\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7625       Size:256        Owner:0x1c58\r
+\e[0m\e[0mSeg:7448       Size:256        Owner:0x1c54\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7725       Size:256        Owner:0x1c5a\r
+\e[0m\e[0mSeg:7548       Size:256        Owner:0x1c56\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7825       Size:256        Owner:0x1c5c\r
+\e[0m\e[0mSeg:7648       Size:256        Owner:0x1c58\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7925       Size:256        Owner:0x1c5e\r
+\e[0m\e[0mSeg:7748       Size:256        Owner:0x1c5a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7a25       Size:256        Owner:0x1c60\r
+\e[0m\e[0mSeg:7848       Size:256        Owner:0x1c5c\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7b25       Size:256        Owner:0x1c62\r
+\e[0m\e[0mSeg:7948       Size:256        Owner:0x1c5e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7c25       Size:256        Owner:0x1c64\r
+\e[0m\e[0mSeg:7a48       Size:256        Owner:0x1c60\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7d25       Size:256        Owner:0x1c66\r
+\e[0m\e[0mSeg:7b48       Size:256        Owner:0x1c62\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7e25       Size:256        Owner:0x1c68\r
+\e[0m\e[0mSeg:7c48       Size:256        Owner:0x1c64\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7f25       Size:256        Owner:0x1c6a\r
+\e[0m\e[0mSeg:7d48       Size:256        Owner:0x1c66\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8025       Size:256        Owner:0x1c6c\r
+\e[0m\e[0mSeg:7e48       Size:256        Owner:0x1c68\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8125       Size:256        Owner:0x1c6e\r
+\e[0m\e[0mSeg:7f48       Size:256        Owner:0x1c6a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8225       Size:256        Owner:0x1c70\r
+\e[0m\e[0mSeg:8048       Size:256        Owner:0x1c6c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8325       Size:256        Owner:0x1c72\r
+\e[0m\e[0mSeg:8148       Size:256        Owner:0x1c6e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8425       Size:256        Owner:0x1c74\r
+\e[0m\e[0mSeg:8248       Size:256        Owner:0x1c70\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8525       Size:256        Owner:0x1c76\r
+\e[0m\e[0mSeg:8348       Size:256        Owner:0x1c72\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8625       Size:256        Owner:0x1c78\r
+\e[0m\e[0mSeg:8448       Size:256        Owner:0x1c74\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8725       Size:256        Owner:0x1c7a\r
+\e[0m\e[0mSeg:8548       Size:256        Owner:0x1c76\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8825       Size:256        Owner:0x1c7c\r
+\e[0m\e[0mSeg:8648       Size:256        Owner:0x1c78\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8925       Size:273        Owner:0x1b88\r
-\e[44;34m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:9d64       Size:25243      Owner:0x0\r
-\e[41;31m+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m
\ No newline at end of file
+\e[0m\e[0mSeg:8748       Size:256        Owner:0x1c7a\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8848       Size:256        Owner:0x1c7c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8948       Size:273        Owner:0x1b88\r
+\e[44;34m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:9d87       Size:25208      Owner:0x0\r
+\e[41;31m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m
\ No newline at end of file

diff --git a/HEAP.16W b/HEAP.16W
index e4332ea960d9c8ecdc3549c456eec224f1c2de8d..2146b9f6ba189a403fa6fcbd11246aa9bdcd04da 100755 (executable)
--- a/HEAP.16W
+++ b/HEAP.16W
@@ -1,35 +1,35 @@
 \r
        == default ==\r
 \r
-  USED block at 24200016 of size 26\r
-  USED block at 24200030 of size 26\r
-  FREE block at 2420004a of size 38914\r
-  USED block at 2420984c of size 136\r
-  USED block at 242098d4 of size 20\r
-  FREE block at 242098e8 of size 7972\r
+  USED block at 24430016 of size 26\r
+  USED block at 24430030 of size 26\r
+  FREE block at 2443004a of size 38914\r
+  USED block at 2443984c of size 136\r
+  USED block at 244398d4 of size 20\r
+  FREE block at 244398e8 of size 7972\r
 OK - end of heap\r
 \r
        == near ==\r
 \r
-  USED block at 141fece6 of size 12\r
-  USED block at 141fecf2 of size 332\r
-  USED block at 141fee3e of size 52\r
-  USED block at 141fee72 of size 20\r
-  USED block at 141fee86 of size 20\r
-  USED block at 141fee9a of size 20\r
-  USED block at 141feeae of size 20\r
-  USED block at 141feec2 of size 20\r
-  USED block at 141feed6 of size 4390\r
+  USED block at 1442ece6 of size 12\r
+  USED block at 1442ecf2 of size 332\r
+  USED block at 1442ee3e of size 52\r
+  USED block at 1442ee72 of size 20\r
+  USED block at 1442ee86 of size 20\r
+  USED block at 1442ee9a of size 20\r
+  USED block at 1442eeae of size 20\r
+  USED block at 1442eec2 of size 20\r
+  USED block at 1442eed6 of size 4390\r
 OK - end of heap\r
 \r
        == far ==\r
 \r
-  USED block at 24200016 of size 26\r
-  USED block at 24200030 of size 26\r
-  USED block at 2420004a of size 38914\r
-  USED block at 2420984c of size 136\r
-  USED block at 242098d4 of size 20\r
-  USED block at 242098e8 of size 7972\r
+  USED block at 24430016 of size 26\r
+  USED block at 24430030 of size 26\r
+  USED block at 2443004a of size 38914\r
+  USED block at 2443984c of size 136\r
+  USED block at 244398d4 of size 20\r
+  USED block at 244398e8 of size 7972\r
 OK - end of heap\r
 \r
 Memory Type         Total      Used       Free\r

diff --git a/MMDUMP.16W b/MMDUMP.16W
index 4c1c8fe9edd4b1517cdc2f85946d98ddcf695252..0eabe16dfa9930e8c235ab0999591d9161fcfecb 100755 (executable)
Binary files a/MMDUMP.16W and b/MMDUMP.16W differ

diff --git a/makefile b/makefile
index 5ebf3d5cde95bcaedb28a3b98ab16ba185439be4..5c1c9cca9af6895d42292ae452a981b51f7d6005 100755 (executable)
--- a/makefile
+++ b/makefile
@@ -241,7 +241,7 @@ test0.exe:          test0.$(OBJ)
 fonttest.exe:   fonttest.$(OBJ) gfx.lib
 #fonttes0.exe: fonttes0.$(OBJ) $(16LIB)
 fontgfx.exe:   fontgfx.$(OBJ) gfx.lib $(DOSLIB)
-inputest.exe:   inputest.$(OBJ) $(16LIB) $(DOSLIB)
+inputest.exe:   inputest.$(OBJ) $(16LIB) $(DOSLIB) gfx.lib
 #sountest.exe: sountest.$(OBJ) $(16LIB)
 pcxtest.exe:   pcxtest.$(OBJ) gfx.lib $(DOSLIB) $(16LIB)
 vrstest.exe:   vrstest.$(OBJ) $(16LIB) gfx.lib $(DOSLIB)
@@ -254,7 +254,7 @@ pcxtest2.exe:        pcxtest2.$(OBJ) gfx.lib $(DOSLIB)
 maptest.exe:   maptest.$(OBJ) 16_map.$(OBJ) 16_head.$(OBJ) gfx.lib $(DOSLIB) $(16LIB)
 fmemtest.exe:   fmemtest.$(OBJ)
 exmmtest.exe:   exmmtest.$(OBJ) $(16LIB) $(DOSLIB)
-vgmtest.exe:   vgmtest.$(OBJ) vgmsnd.lib $(16LIB) $(DOSLIB)
+vgmtest.exe:   vgmtest.$(OBJ) vgmsnd.lib $(16LIB) $(DOSLIB) gfx.lib
 db.exe:                db.$(OBJ)
 wcpu.exe:              wcpu.$(OBJ) $(16LIB) $(DOSLIB)
 

diff --git a/src/exmmtest.c b/src/exmmtest.c
index b6efd4ebae120ef0ee01d204c8d6db63d16765fc..c4fcebdfb81406a0b71907fbcde3398af1dccd9d 100755 (executable)
--- a/src/exmmtest.c
+++ b/src/exmmtest.c
@@ -221,6 +221,8 @@ PRINTBB; printf("\n\npress any key to continue!\n"); getch();
        printf("press any key to continue!\n"); getch();\r
 #endif\r
 #endif //filereadload\r
+       //getch(); ShapeTest (&gvar);\r
+\r
        DebugMemory_(&gvar, 1);\r
        MM_DumpData(&gvar);\r
        MM_Report_(&gvar);\r

diff --git a/src/lib/16_dbg.c b/src/lib/16_dbg.c
index bfa55a5344b8b68655349a94a4d094819589cfb2..2cc7e985c8cbcc182caf47cb0ec105c6cbaa15fc 100755 (executable)
--- a/src/lib/16_dbg.c
+++ b/src/lib/16_dbg.c
@@ -17,7 +17,216 @@ boolean dbg_testkeyin=0,dbg_testcontrolnoisy=0,dbg_nointest=0;
 boolean dbg_maptext=0;\r
 byte *dbg_mapdata;\r
 #endif\r
-#endif\r
+#endif //debug\r
+\r
+/*\r
+================\r
+=\r
+= ShapeTest\r
+=\r
+================\r
+*/\r
+\r
+#pragma warn -pia\r
+void ShapeTest (global_game_variables_t *gvar)\r
+{\r
+extern word    NumDigi;\r
+extern word    _seg *DigiList;\r
+static char    buf[10];\r
+\r
+       boolean                 done;\r
+       ScanCode                scan=0;\r
+       int                             i,j;\r
+//     dword           l; word k,x;\r
+       memptr                  addr;\r
+       PageListStruct  far *page;\r
+\r
+//     CenterWindow(20,16);\r
+//     VW_UpdateScreen();\r
+       for (i = 0,done = false;!done;)\r
+       {\r
+//             US_ClearWindow();\r
+//             sound = -1;\r
+\r
+               page = &(gvar->pm.PMPages[i]);\r
+//             US_Print(" Page #");\r
+//             US_PrintUnsigned(i);\r
+               printf(" Page #%u", i);\r
+               if (i < (gvar->pm.fi.PMSpriteStart))\r
+//                     US_Print(" (Wall)");\r
+                       printf(" (Wall)");\r
+               else if (i < (gvar->pm.fi.PMSoundStart))\r
+//                     US_Print(" (Sprite)");\r
+                       printf(" (Sprite)");\r
+               else if (i == (gvar->pm.fi.ChunksInFile - 1))\r
+//                     US_Print(" (Sound Info)");\r
+                       printf(" (Sound Info)");\r
+               else\r
+//                     US_Print(" (Sound)");\r
+                       printf(" (Sound)");\r
+\r
+//             US_Print("\n XMS: ");\r
+               printf("\n XMS: ");\r
+               if (page->xmsPage != -1)\r
+//                     US_PrintUnsigned(page->xmsPage);\r
+                       printf("%u", page->xmsPage);\r
+               else\r
+//                     US_Print("No");\r
+                       printf("No");\r
+\r
+//             US_Print("\n Main: ");\r
+               if (page->mainPage != -1)\r
+//                     US_PrintUnsigned(page->mainPage);\r
+                       printf("\n Main: %u", page->mainPage);\r
+               else if (page->emsPage != -1)\r
+               {\r
+//                     US_Print("EMS ");\r
+//                     US_PrintUnsigned(page->emsPage);\r
+                       printf("EMS %u", page->emsPage);\r
+               }\r
+               else\r
+//                     US_Print("No");\r
+                       printf("No");\r
+\r
+//             US_Print("\n Last hit: ");\r
+//             US_PrintUnsigned(page->lastHit);\r
+               printf("\n Last hit: %u", page->lastHit);\r
+\r
+//             US_Print("\n Address: ");\r
+               printf("\n Address: ");\r
+               addr = PM_GetPageAddress(i, gvar);\r
+               sprintf(buf,"0x%04x",(word)addr);\r
+//             US_Print(buf);\r
+               printf("%s", buf);\r
+\r
+               if (addr)\r
+               {\r
+/*                     if (i < PMSpriteStart)\r
+                       {\r
+                       //\r
+                       // draw the wall\r
+                       //\r
+                               bufferofs += 32*SCREENWIDTH;\r
+                               postx = 128;\r
+                               postwidth = 1;\r
+                               postsource = ((long)((unsigned)addr))<<16;\r
+                               for (x=0;x<64;x++,postx++,postsource+=64)\r
+                               {\r
+                                       wallheight[postx] = 256;\r
+                                       FarScalePost ();\r
+                               }\r
+                               bufferofs -= 32*SCREENWIDTH;\r
+                       }\r
+                       else if (i < PMSoundStart)\r
+                       {\r
+                       //\r
+                       // draw the sprite\r
+                       //\r
+                               bufferofs += 32*SCREENWIDTH;\r
+                               SimpleScaleShape (160, i-PMSpriteStart, 64);\r
+                               bufferofs -= 32*SCREENWIDTH;\r
+                       }\r
+                       else if (i == ChunksInFile - 1)\r
+                       {\r
+                               US_Print("\n\n Number of sounds: ");\r
+                               US_PrintUnsigned(NumDigi);\r
+                               for (l = j = k = 0;j < NumDigi;j++)\r
+                               {\r
+                                       l += DigiList[(j * 2) + 1];\r
+                                       k += (DigiList[(j * 2) + 1] + (PMPageSize - 1)) / PMPageSize;\r
+                               }\r
+                               US_Print("\n Total bytes: ");\r
+                               US_PrintUnsigned(l);\r
+                               US_Print("\n Total pages: ");\r
+                               US_PrintUnsigned(k);\r
+                       }\r
+                       else\r
+                       {\r
+                               byte far *dp = (byte far *)MK_FP(addr,0);\r
+                               for (j = 0;j < NumDigi;j++)\r
+                               {\r
+                                       k = (DigiList[(j * 2) + 1] + (PMPageSize - 1)) / PMPageSize;\r
+                                       if\r
+                                       (\r
+                                               (i >= PMSoundStart + DigiList[j * 2])\r
+                                       &&      (i < PMSoundStart + DigiList[j * 2] + k)\r
+                                       )\r
+                                               break;\r
+                               }\r
+                               if (j < NumDigi)\r
+                               {\r
+//                                     sound = j;\r
+                                       US_Print("\n Sound #");\r
+                                       US_PrintUnsigned(j);\r
+                                       US_Print("\n Segment #");\r
+                                       US_PrintUnsigned(i - PMSoundStart - DigiList[j * 2]);\r
+                               }\r
+                               for (j = 0;j < page->length;j += 32)\r
+                               {\r
+                                       byte v = dp[j];\r
+                                       int v2 = (unsigned)v;\r
+                                       v2 -= 128;\r
+                                       v2 /= 4;\r
+                                       if (v2 < 0)\r
+                                               VWB_Vlin(WindowY + WindowH - 32 + v2,\r
+                                                               WindowY + WindowH - 32,\r
+                                                               WindowX + 8 + (j / 32),BLACK);\r
+                                       else\r
+                                               VWB_Vlin(WindowY + WindowH - 32,\r
+                                                               WindowY + WindowH - 32 + v2,\r
+                                                               WindowX + 8 + (j / 32),BLACK);\r
+                               }\r
+                       }*/\r
+                       printf("addr ok\n");\r
+               }\r
+\r
+//             VW_UpdateScreen();\r
+\r
+//             while (!(scan = LastScan))\r
+//                     SD_Poll();\r
+\r
+               IN_ClearKey(scan);\r
+               switch (scan)\r
+               {\r
+               case sc_LeftArrow:\r
+                       if (i)\r
+                               i--;\r
+                       break;\r
+               case sc_RightArrow:\r
+                       if (++i >= (gvar->pm.fi.ChunksInFile))\r
+                               i--;\r
+                       break;\r
+               case sc_W:      // Walls\r
+                       i = 0;\r
+                       break;\r
+               case sc_S:      // Sprites\r
+                       i = (gvar->pm.fi.PMSpriteStart);\r
+                       break;\r
+               case sc_D:      // Digitized\r
+                       i = (gvar->pm.fi.PMSoundStart);\r
+                       break;\r
+               case sc_I:      // Digitized info\r
+                       i = (gvar->pm.fi.ChunksInFile - 1);\r
+                       break;\r
+               case sc_L:      // Load all pages\r
+                       for (j = 0;j < (gvar->pm.fi.ChunksInFile);j++)\r
+                               PM_GetPage(j, gvar);\r
+                       break;\r
+               case sc_P:\r
+//                     if (sound != -1)\r
+//                             SD_PlayDigitized(sound);\r
+                       break;\r
+               case sc_Escape:\r
+                       done = true;\r
+                       break;\r
+               case sc_Enter:\r
+                       PM_GetPage(i, gvar);\r
+                       break;\r
+               }\r
+       }\r
+       //SD_StopDigitized();\r
+}\r
+#pragma warn +pia\r
 \r
 #ifdef __WATCOMC__\r
 // TODO: Could we also provide a build mode to emit debug to the "Bochs E9 hack?"\r
@@ -91,5 +300,5 @@ void _DEBUGF(const char *fmt,...) {
        _DEBUG(_DEBUGF_TMP);\r
        va_end(va);\r
 }\r
+#endif //serial\r
 #endif //watcomc\r
-#endif\r

diff --git a/src/lib/16_dbg.h b/src/lib/16_dbg.h
index 5340313a2439961837db2eeb686d3eaa0670cee3..37062b43f64af2974bf9d923ec1f3ef3c506df08 100755 (executable)
--- a/src/lib/16_dbg.h
+++ b/src/lib/16_dbg.h
@@ -3,6 +3,7 @@
 #define _SRC_LIB_16_DBG\r
 \r
 #include "src/lib/16_head.h"\r
+#include "src/lib/16_pm.h"\r
 #include "src/lib/16_tdef.h"\r
 \r
 #define __DEBUG__\r
@@ -32,6 +33,8 @@ extern byte *dbg_mapdata;
 #endif\r
 #endif\r
 \r
+void ShapeTest (global_game_variables_t *gvar);\r
+\r
 #ifdef __WATCOMC__\r
 # ifdef DEBUGSERIAL\r
 #  include <hw/8250/8250.h>\r