xms Works but it is quick and dirty and reliese on older C code with _REG defs and...

diff --git a/DEBUG.16W b/DEBUG.16W
index 66a0f5a..35c40cb 100755 (executable)
--- a/DEBUG.16W
+++ b/DEBUG.16W
@@ -1,210 +1,210 @@
-\e[0mSeg:0      Size:9845       Owner:0x0\r
+\e[0mSeg:0      Size:9844       Owner:0x0\r
 \e[41;31m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m\e[42;32m0\r
-\e[0m\e[0mSeg:2675       Size:256        Owner:0x18a8\r
+\e[0m\e[0mSeg:2674       Size:256        Owner:0x18a8\r
 \e[44;34m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:27f1       Size:44 Owner:0x0\r
+\e[0m\e[0mSeg:27f0       Size:44 Owner:0x0\r
 \e[41;31m++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:281d       Size:256        Owner:0x1696\r
+\e[0m\e[0mSeg:281c       Size:256        Owner:0x1696\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:291d       Size:256        Owner:0x1698\r
+\e[0m\e[0mSeg:291c       Size:256        Owner:0x1698\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2a1d       Size:256        Owner:0x169a\r
+\e[0m\e[0mSeg:2a1c       Size:256        Owner:0x169a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2b1d       Size:256        Owner:0x169c\r
+\e[0m\e[0mSeg:2b1c       Size:256        Owner:0x169c\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2c1d       Size:256        Owner:0x169e\r
+\e[0m\e[0mSeg:2c1c       Size:256        Owner:0x169e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2d1d       Size:256        Owner:0x16a0\r
+\e[0m\e[0mSeg:2d1c       Size:256        Owner:0x16a0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2e1d       Size:256        Owner:0x16a2\r
+\e[0m\e[0mSeg:2e1c       Size:256        Owner:0x16a2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:2f1d       Size:256        Owner:0x16a4\r
+\e[0m\e[0mSeg:2f1c       Size:256        Owner:0x16a4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:301d       Size:256        Owner:0x16a6\r
+\e[0m\e[0mSeg:301c       Size:256        Owner:0x16a6\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:311d       Size:256        Owner:0x16a8\r
+\e[0m\e[0mSeg:311c       Size:256        Owner:0x16a8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:321d       Size:256        Owner:0x16aa\r
+\e[0m\e[0mSeg:321c       Size:256        Owner:0x16aa\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:331d       Size:256        Owner:0x16ac\r
+\e[0m\e[0mSeg:331c       Size:256        Owner:0x16ac\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:341d       Size:256        Owner:0x16ae\r
+\e[0m\e[0mSeg:341c       Size:256        Owner:0x16ae\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:351d       Size:256        Owner:0x16b0\r
+\e[0m\e[0mSeg:351c       Size:256        Owner:0x16b0\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:361d       Size:256        Owner:0x16b2\r
+\e[0m\e[0mSeg:361c       Size:256        Owner:0x16b2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:371d       Size:256        Owner:0x16b4\r
+\e[0m\e[0mSeg:371c       Size:256        Owner:0x16b4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:381d       Size:256        Owner:0x16b6\r
+\e[0m\e[0mSeg:381c       Size:256        Owner:0x16b6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:391d       Size:256        Owner:0x16b8\r
+\e[0m\e[0mSeg:391c       Size:256        Owner:0x16b8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3a1d       Size:256        Owner:0x16ba\r
+\e[0m\e[0mSeg:3a1c       Size:256        Owner:0x16ba\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3b1d       Size:256        Owner:0x16bc\r
+\e[0m\e[0mSeg:3b1c       Size:256        Owner:0x16bc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3c1d       Size:256        Owner:0x16be\r
+\e[0m\e[0mSeg:3c1c       Size:256        Owner:0x16be\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3d1d       Size:256        Owner:0x16c0\r
+\e[0m\e[0mSeg:3d1c       Size:256        Owner:0x16c0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3e1d       Size:256        Owner:0x16c2\r
+\e[0m\e[0mSeg:3e1c       Size:256        Owner:0x16c2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:3f1d       Size:256        Owner:0x16c4\r
+\e[0m\e[0mSeg:3f1c       Size:256        Owner:0x16c4\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:401d       Size:256        Owner:0x16c6\r
+\e[0m\e[0mSeg:401c       Size:256        Owner:0x16c6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:411d       Size:256        Owner:0x16c8\r
+\e[0m\e[0mSeg:411c       Size:256        Owner:0x16c8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:421d       Size:256        Owner:0x16ca\r
+\e[0m\e[0mSeg:421c       Size:256        Owner:0x16ca\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:431d       Size:256        Owner:0x16cc\r
+\e[0m\e[0mSeg:431c       Size:256        Owner:0x16cc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:441d       Size:256        Owner:0x16ce\r
+\e[0m\e[0mSeg:441c       Size:256        Owner:0x16ce\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:451d       Size:256        Owner:0x16d0\r
+\e[0m\e[0mSeg:451c       Size:256        Owner:0x16d0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:461d       Size:256        Owner:0x16d2\r
+\e[0m\e[0mSeg:461c       Size:256        Owner:0x16d2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:471d       Size:256        Owner:0x16d4\r
+\e[0m\e[0mSeg:471c       Size:256        Owner:0x16d4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:481d       Size:256        Owner:0x16d6\r
+\e[0m\e[0mSeg:481c       Size:256        Owner:0x16d6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:491d       Size:256        Owner:0x16d8\r
+\e[0m\e[0mSeg:491c       Size:256        Owner:0x16d8\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4a1d       Size:256        Owner:0x16da\r
+\e[0m\e[0mSeg:4a1c       Size:256        Owner:0x16da\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4b1d       Size:256        Owner:0x16dc\r
+\e[0m\e[0mSeg:4b1c       Size:256        Owner:0x16dc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4c1d       Size:256        Owner:0x16de\r
+\e[0m\e[0mSeg:4c1c       Size:256        Owner:0x16de\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4d1d       Size:256        Owner:0x16e0\r
+\e[0m\e[0mSeg:4d1c       Size:256        Owner:0x16e0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4e1d       Size:256        Owner:0x16e2\r
+\e[0m\e[0mSeg:4e1c       Size:256        Owner:0x16e2\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:4f1d       Size:256        Owner:0x16e4\r
+\e[0m\e[0mSeg:4f1c       Size:256        Owner:0x16e4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:501d       Size:256        Owner:0x16e6\r
+\e[0m\e[0mSeg:501c       Size:256        Owner:0x16e6\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:511d       Size:256        Owner:0x16e8\r
+\e[0m\e[0mSeg:511c       Size:256        Owner:0x16e8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:521d       Size:256        Owner:0x16ea\r
+\e[0m\e[0mSeg:521c       Size:256        Owner:0x16ea\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:531d       Size:256        Owner:0x16ec\r
+\e[0m\e[0mSeg:531c       Size:256        Owner:0x16ec\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:541d       Size:256        Owner:0x16ee\r
+\e[0m\e[0mSeg:541c       Size:256        Owner:0x16ee\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:551d       Size:256        Owner:0x16f0\r
+\e[0m\e[0mSeg:551c       Size:256        Owner:0x16f0\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:561d       Size:256        Owner:0x16f2\r
+\e[0m\e[0mSeg:561c       Size:256        Owner:0x16f2\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:571d       Size:256        Owner:0x16f4\r
+\e[0m\e[0mSeg:571c       Size:256        Owner:0x16f4\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:581d       Size:256        Owner:0x16f6\r
+\e[0m\e[0mSeg:581c       Size:256        Owner:0x16f6\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:591d       Size:256        Owner:0x16f8\r
+\e[0m\e[0mSeg:591c       Size:256        Owner:0x16f8\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5a1d       Size:256        Owner:0x16fa\r
+\e[0m\e[0mSeg:5a1c       Size:256        Owner:0x16fa\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5b1d       Size:256        Owner:0x16fc\r
+\e[0m\e[0mSeg:5b1c       Size:256        Owner:0x16fc\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5c1d       Size:256        Owner:0x16fe\r
+\e[0m\e[0mSeg:5c1c       Size:256        Owner:0x16fe\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5d1d       Size:256        Owner:0x1700\r
+\e[0m\e[0mSeg:5d1c       Size:256        Owner:0x1700\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5e1d       Size:256        Owner:0x1702\r
+\e[0m\e[0mSeg:5e1c       Size:256        Owner:0x1702\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:5f1d       Size:256        Owner:0x1704\r
+\e[0m\e[0mSeg:5f1c       Size:256        Owner:0x1704\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:601d       Size:256        Owner:0x1706\r
+\e[0m\e[0mSeg:601c       Size:256        Owner:0x1706\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:611d       Size:256        Owner:0x1708\r
+\e[0m\e[0mSeg:611c       Size:256        Owner:0x1708\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:621d       Size:256        Owner:0x170a\r
+\e[0m\e[0mSeg:621c       Size:256        Owner:0x170a\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:631d       Size:256        Owner:0x170c\r
+\e[0m\e[0mSeg:631c       Size:256        Owner:0x170c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:641d       Size:256        Owner:0x170e\r
+\e[0m\e[0mSeg:641c       Size:256        Owner:0x170e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:651d       Size:256        Owner:0x1710\r
+\e[0m\e[0mSeg:651c       Size:256        Owner:0x1710\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:661d       Size:256        Owner:0x1712\r
+\e[0m\e[0mSeg:661c       Size:256        Owner:0x1712\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:671d       Size:256        Owner:0x1714\r
+\e[0m\e[0mSeg:671c       Size:256        Owner:0x1714\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:681d       Size:256        Owner:0x1716\r
+\e[0m\e[0mSeg:681c       Size:256        Owner:0x1716\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:691d       Size:256        Owner:0x1718\r
+\e[0m\e[0mSeg:691c       Size:256        Owner:0x1718\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6a1d       Size:256        Owner:0x171a\r
+\e[0m\e[0mSeg:6a1c       Size:256        Owner:0x171a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6b1d       Size:256        Owner:0x171c\r
+\e[0m\e[0mSeg:6b1c       Size:256        Owner:0x171c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6c1d       Size:256        Owner:0x171e\r
+\e[0m\e[0mSeg:6c1c       Size:256        Owner:0x171e\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6d1d       Size:256        Owner:0x1720\r
+\e[0m\e[0mSeg:6d1c       Size:256        Owner:0x1720\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6e1d       Size:256        Owner:0x1722\r
+\e[0m\e[0mSeg:6e1c       Size:256        Owner:0x1722\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:6f1d       Size:256        Owner:0x1724\r
+\e[0m\e[0mSeg:6f1c       Size:256        Owner:0x1724\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:701d       Size:256        Owner:0x1726\r
+\e[0m\e[0mSeg:701c       Size:256        Owner:0x1726\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:711d       Size:256        Owner:0x1728\r
+\e[0m\e[0mSeg:711c       Size:256        Owner:0x1728\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:721d       Size:256        Owner:0x172a\r
+\e[0m\e[0mSeg:721c       Size:256        Owner:0x172a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:731d       Size:256        Owner:0x172c\r
+\e[0m\e[0mSeg:731c       Size:256        Owner:0x172c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:741d       Size:256        Owner:0x172e\r
+\e[0m\e[0mSeg:741c       Size:256        Owner:0x172e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:751d       Size:256        Owner:0x1730\r
+\e[0m\e[0mSeg:751c       Size:256        Owner:0x1730\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:761d       Size:256        Owner:0x1732\r
+\e[0m\e[0mSeg:761c       Size:256        Owner:0x1732\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:771d       Size:256        Owner:0x1734\r
+\e[0m\e[0mSeg:771c       Size:256        Owner:0x1734\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:781d       Size:256        Owner:0x1736\r
+\e[0m\e[0mSeg:781c       Size:256        Owner:0x1736\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:791d       Size:256        Owner:0x1738\r
+\e[0m\e[0mSeg:791c       Size:256        Owner:0x1738\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7a1d       Size:256        Owner:0x173a\r
+\e[0m\e[0mSeg:7a1c       Size:256        Owner:0x173a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7b1d       Size:256        Owner:0x173c\r
+\e[0m\e[0mSeg:7b1c       Size:256        Owner:0x173c\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7c1d       Size:256        Owner:0x173e\r
+\e[0m\e[0mSeg:7c1c       Size:256        Owner:0x173e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7d1d       Size:256        Owner:0x1740\r
+\e[0m\e[0mSeg:7d1c       Size:256        Owner:0x1740\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7e1d       Size:256        Owner:0x1742\r
+\e[0m\e[0mSeg:7e1c       Size:256        Owner:0x1742\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:7f1d       Size:256        Owner:0x1744\r
+\e[0m\e[0mSeg:7f1c       Size:256        Owner:0x1744\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:801d       Size:256        Owner:0x1746\r
+\e[0m\e[0mSeg:801c       Size:256        Owner:0x1746\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:811d       Size:256        Owner:0x1748\r
+\e[0m\e[0mSeg:811c       Size:256        Owner:0x1748\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:821d       Size:256        Owner:0x174a\r
+\e[0m\e[0mSeg:821c       Size:256        Owner:0x174a\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:831d       Size:256        Owner:0x174c\r
+\e[0m\e[0mSeg:831c       Size:256        Owner:0x174c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:841d       Size:256        Owner:0x174e\r
+\e[0m\e[0mSeg:841c       Size:256        Owner:0x174e\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:851d       Size:256        Owner:0x1750\r
+\e[0m\e[0mSeg:851c       Size:256        Owner:0x1750\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:861d       Size:256        Owner:0x1752\r
+\e[0m\e[0mSeg:861c       Size:256        Owner:0x1752\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:871d       Size:256        Owner:0x1754\r
+\e[0m\e[0mSeg:871c       Size:256        Owner:0x1754\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:881d       Size:256        Owner:0x1756\r
+\e[0m\e[0mSeg:881c       Size:256        Owner:0x1756\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:891d       Size:256        Owner:0x1758\r
+\e[0m\e[0mSeg:891c       Size:256        Owner:0x1758\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8a1d       Size:256        Owner:0x175a\r
+\e[0m\e[0mSeg:8a1c       Size:256        Owner:0x175a\r
 \e[45;35m+++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8b1d       Size:256        Owner:0x175c\r
+\e[0m\e[0mSeg:8b1c       Size:256        Owner:0x175c\r
 \e[45;35m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:8c1d       Size:273        Owner:0xe400\r
+\e[0m\e[0mSeg:8c1c       Size:273        Owner:0xe400\r
 \e[44;34m++++\e[0m\e[42;32m\r
-\e[0m\e[0mSeg:b81d       Size:18402      Owner:0x0\r
+\e[0m\e[0mSeg:b81c       Size:18403      Owner:0x0\r
 \e[41;31m+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m
\ No newline at end of file

diff --git a/HEAP.16W b/HEAP.16W
index c61787a..df0e710 100755 (executable)
--- a/HEAP.16W
+++ b/HEAP.16W
@@ -1,35 +1,35 @@
 \r
        == default ==\r
 \r
-  USED block at 28130016 of size 66\r
-  USED block at 28130058 of size 66\r
-  FREE block at 2813009a of size 18\r
-  USED block at 281300ac of size 136\r
-  USED block at 28130134 of size 20\r
-  FREE block at 28130148 of size 7860\r
+  USED block at 28120016 of size 66\r
+  USED block at 28120058 of size 66\r
+  FREE block at 2812009a of size 18\r
+  USED block at 281200ac of size 136\r
+  USED block at 28120134 of size 20\r
+  FREE block at 28120148 of size 7860\r
 OK - end of heap\r
 \r
        == near ==\r
 \r
-  USED block at 1812e436 of size 12\r
-  USED block at 1812e442 of size 332\r
-  USED block at 1812e58e of size 52\r
-  USED block at 1812e5c2 of size 20\r
-  USED block at 1812e5d6 of size 20\r
-  USED block at 1812e5ea of size 20\r
-  USED block at 1812e5fe of size 20\r
-  USED block at 1812e612 of size 20\r
-  USED block at 1812e626 of size 6614\r
+  USED block at 1811e436 of size 12\r
+  USED block at 1811e442 of size 332\r
+  USED block at 1811e58e of size 52\r
+  USED block at 1811e5c2 of size 20\r
+  USED block at 1811e5d6 of size 20\r
+  USED block at 1811e5ea of size 20\r
+  USED block at 1811e5fe of size 20\r
+  USED block at 1811e612 of size 20\r
+  USED block at 1811e626 of size 6614\r
 OK - end of heap\r
 \r
        == far ==\r
 \r
-  USED block at 28130016 of size 66\r
-  USED block at 28130058 of size 66\r
-  USED block at 2813009a of size 18\r
-  USED block at 281300ac of size 136\r
-  USED block at 28130134 of size 20\r
-  USED block at 28130148 of size 7860\r
+  USED block at 28120016 of size 66\r
+  USED block at 28120058 of size 66\r
+  USED block at 2812009a of size 18\r
+  USED block at 281200ac of size 136\r
+  USED block at 28120134 of size 20\r
+  USED block at 28120148 of size 7860\r
 OK - end of heap\r
 \r
 Memory Type         Total      Used       Free\r

diff --git a/src/exmmtest.c b/src/exmmtest.c
index 26bfc96..6d6e9a8 100755 (executable)
--- a/src/exmmtest.c
+++ b/src/exmmtest.c
@@ -141,8 +141,8 @@ for(w=0;w<2;w++)
        //printf("dark purple = purgable\n");\r
        //printf("medium blue = non purgable\n");\r
        //printf("red = locked\n");\r
-       printf("press any key to continue!\n");\r
-       DebugMemory_(&gvar, 1);\r
+//     printf("press any key to continue!\n");\r
+//     DebugMemory_(&gvar, 1);\r
        if(baka) printf("\nyay!\n");\r
        else printf("\npoo!\n");\r
        printf("press any key to continue!\n");\r

diff --git a/src/lib/16_mm.c b/src/lib/16_mm.c
index c8cb925..51b4925 100755 (executable)
--- a/src/lib/16_mm.c
+++ b/src/lib/16_mm.c
@@ -1619,12 +1619,14 @@ void MM_Report_(global_game_variables_t *gvar)
                printf("        LIMEMS\n");
                printf("                EMM v%x.%x available\n", gvar->pm.emm.EMSVer>>4,gvar->pm.emm.EMSVer&0x0F);
                printf("                totalEMSpages:  %u      ", gvar->pm.emm.totalEMSpages); printf("freeEMSpages:   %u\n", gvar->pm.emm.freeEMSpages);
-               printf("                EMSPageFrame:   %x\n", gvar->pm.emm.EMSPageFrame);
+               printf("                EMSPageFrame:   %04x\n", gvar->pm.emm.EMSPageFrame);
        }
        if(MML_CheckForXMS())
        {
                printf("        XMS\n");
-               printf("                XMSDriver:      %X\n", gvar->pm.xmm.XMSDriver);
+//++++         printf("                XMS v%x.%x available\n", gvar->pm.xmm.XMSVer>>4,gvar->pm.xmm.XMSVer&0x0F);
+               printf("                XMSDriver:      %Fp\n", XMSDriver);
+               printf("                XMSHandle:      %04x\n", gvar->pm.xmm.XMSHandle);
        }
        printf("nearheap:       %lu             ", gvar->mmi.nearheap); printf("farheap:        %lu\n", gvar->mmi.farheap);
        if(MML_CheckForEMS()) printf("EMSmem:           %lu     ", gvar->mmi.EMSmem); if(MML_CheckForXMS()) printf("XMSmem:             %lu", gvar->mmi.XMSmem); printf("\n");

diff --git a/src/lib/16_pm.c b/src/lib/16_pm.c
index bbfec52..191061f 100755 (executable)
--- a/src/lib/16_pm.c
+++ b/src/lib/16_pm.c
@@ -354,15 +354,22 @@ PML_ShutdownEMS(global_game_variables_t *gvar)
 boolean\r
 PML_StartupXMS(global_game_variables_t *gvar)\r
 {\r
-       boolean errorflag;\r
+//#define STARTUPXMSASM\r
        byte err;\r
-       word /*XMSAvail,*/ XMSHandle;\r
-\r
-       word XMSAvail1, XMSAvail2, XMSAvail3, XMSAvail4;\r
-\r
+#ifndef STARTUPXMSASM\r
+#define XMSAVI gvar->pm.xmm.XMSAvail\r
+#define XMSHAN gvar->pm.xmm.XMSHandle\r
+#else\r
+       #define BRACKETXMS\r
+       word XMSAvail, XMSHandle;\r
+#define XMSAVI XMSAvail\r
+#define XMSHAN XMSHandle\r
+#endif\r
+//++++ word XMSVer;\r
+       boolean errorflag=false;\r
        word e=0;\r
-       errorflag=gvar->pm.xmm.XMSPresent = false;                                      // Assume failure\r
-       gvar->pm.xmm.XMSAvail = gvar->mmi.XMSmem = 0;\r
+       gvar->pm.xmm.XMSPresent = false;                                        // Assume failure\r
+       XMSAVI = gvar->mmi.XMSmem = 0;\r
 \r
        __asm {\r
                mov     ax,0x4300\r
@@ -375,20 +382,23 @@ PML_StartupXMS(global_game_variables_t *gvar)
                int     XMS_INT                                                 // Get address of XMS driver\r
                mov     [WORD PTR XMSDriver],bx\r
                mov     [WORD PTR XMSDriver+2],es               // function pointer to XMS driver\r
+//++++         mov     ah,0\r
+//++++         call    [DWORD PTR XMSDriver]                                           //; Get XMS Version Number\r
+//++++         mov     [XMSVer],ax\r
                mov     e,2\r
 \r
-               //XMS_CALL(XMS_QUERYFREE);                      // Find out how much XMS is available\r
+#ifdef STARTUPXMSASM\r
                mov     ah,XMS_QUERYFREE                        // Find out how much XMS is available\r
-               call    [DWORD PTR XMSDriver]\r
-               //mov   [XMSAvail],ax\r
-               //mov   XMSAvail1,ax\r
-               //mov   ax,XMSAvail2\r
-               //mov   [XMSAvail3],ax\r
-               mov     ax,[XMSAvail4]\r
-               mov     err,bl\r
-               cmp     ax,0                            // AJR: bugfix 10/8/92\r
-               je      error1\r
+               call    [DWORD PTR XMSDriver]//DWORD PTR\r
+#ifndef BRACKETXMS\r
+               mov     XMSAVI,ax\r
+#else\r
+               mov     [XMSAVI],ax\r
+#endif\r
+               or      ax,ax                           // AJR: bugfix 10/8/92\r
+               jz      error1\r
                mov     e,3\r
+#endif\r
                jmp     End1\r
 #ifdef __BORLANDC__\r
        }\r
@@ -407,29 +417,45 @@ End1:
 #ifdef __WATCOMC__\r
        }\r
 #endif\r
-\r
-//     XMS_CALL(XMS_QUERYFREE);                        // Find out how much XMS is available\r
-//     XMSAvail = _AX;\r
-//     if (!_AX)                               // AJR: bugfix 10/8/92\r
-//             goto error;\r
-\r
-       printf("        XMSAvail=%u     e=%u\n", XMSAvail4, e);\r
-       //printf("      %u      %u      %u      %u\n", XMSAvail1, XMSAvail2, XMSAvail3, XMSAvail4);\r
-       XMSAvail4 &= ~(PMPageSizeKB - 1);       // Round off to nearest page size\r
-       if (XMSAvail4 < (PMPageSizeKB * 2)){    // Need at least 2 pages\r
-               printf("PISS! %u\n", XMSAvail4);\r
+       if(errorflag==true) goto error;\r
+#ifndef STARTUPXMSASM\r
+       XMS_CALL(XMS_QUERYFREE);                        // Find out how much XMS is available\r
+       XMSAVI = _AX;\r
+       if (!_AX)                               // AJR: bugfix 10/8/92\r
+       {\r
+               errorflag = true;\r
+               err = _BL;\r
                goto error;\r
        }\r
+       e++;\r
+#endif\r
 \r
+#ifdef __DEBUG_PM__\r
+//++++ printf("XMSVer=%02X     ", XMSVer);\r
+       printf("XMSAvail=%u\n", XMSAVI);\r
+#endif\r
+       XMSAVI &= ~(PMPageSizeKB - 1);  // Round off to nearest page size\r
+       if (XMSAVI < (PMPageSizeKB * 2))        // Need at least 2 pages\r
+       {\r
+               errorflag=true;\r
+               goto error;\r
+       }\r
+#ifdef STARTUPXMSASM\r
        __asm {\r
-               mov     dx,[XMSAvail4]\r
-               //XMS_CALL(XMS_ALLOC);                          // And do the allocation\r
-               mov     ah,XMS_ALLOC\r
-               call    [DWORD PTR XMSDriver]\r
-               mov     XMSHandle,dx\r
-               mov     err,bl\r
-               cmp     ax,0                            // AJR: bugfix 10/8/92\r
-               je      error2\r
+#ifndef BRACKETXMS\r
+               mov     dx,XMSAVI\r
+#else\r
+               mov     dx,[XMSAVI]\r
+#endif\r
+               mov     ah,XMS_ALLOC                            // And do the allocation\r
+               call    [DWORD PTR XMSDriver]//DWORD PTR\r
+#ifndef BRACKETXMS\r
+               mov     XMSHAN,dx\r
+#else\r
+               mov     [XMSHAN],dx\r
+#endif\r
+               or      ax,ax                           // AJR: bugfix 10/8/92\r
+               jz      error2\r
                mov     e,4\r
                jmp     End2\r
 #ifdef __BORLANDC__\r
@@ -449,59 +475,43 @@ End2:
 #ifdef __WATCOMC__\r
        }\r
 #endif\r
-\r
-       if(errorflag==false)\r
-       {\r
-               gvar->mmi.XMSmem = XMSAvail4 * (dword)1024;\r
-               gvar->pm.xmm.XMSAvail = XMSAvail4;\r
-               gvar->pm.xmm.XMSHandle = XMSHandle;\r
-\r
-               gvar->pm.xmm.XMSPresent = true;\r
-               printf("        %u      %u      %u\n", gvar->mmi.XMSmem, gvar->pm.xmm.XMSAvail, XMSAvail4);\r
-               getch();\r
-       }else printf("  %u      errorflag=%02X\n", XMSAvail4, err);\r
-error:\r
-       return(gvar->pm.xmm.XMSPresent);\r
-/*\r
-       gvar->pm.xmm.XMSPresent = false;                                        // Assume failure\r
-       gvar->pm.xmm.XMSAvail = 0;\r
-\r
-__asm  mov     ax,0x4300\r
-__asm  int     XMS_INT                                         // Check for presence of XMS driver\r
-       if (_AL != 0x80)\r
-               goto error;\r
-\r
-\r
-__asm  mov     ax,0x4310\r
-__asm  int     XMS_INT                                                 // Get address of XMS driver\r
-__asm  mov     [WORD PTR XMSDriver],bx\r
-__asm  mov     [WORD PTR XMSDriver+2],es               // function pointer to XMS driver\r
-\r
-       XMS_CALL(XMS_QUERYFREE);                        // Find out how much XMS is available\r
-       gvar->pm.xmm.XMSAvail = _AX;\r
-       if (!_AX)                               // AJR: bugfix 10/8/92\r
-               goto error;\r
-\r
-       gvar->pm.xmm.XMSAvail &= ~(PMPageSizeKB - 1);   // Round off to nearest page size\r
-       if (gvar->pm.xmm.XMSAvail < (PMPageSizeKB * 2)) // Need at least 2 pages\r
-               goto error;\r
-\r
-       _DX = gvar->pm.xmm.XMSAvail;\r
+#else\r
+       _DX = XMSAVI;\r
        XMS_CALL(XMS_ALLOC);                            // And do the allocation\r
-       gvar->pm.xmm.XMSHandle = _DX;\r
-\r
+       XMSHAN = _DX;\r
        if (!_AX)                               // AJR: bugfix 10/8/92\r
        {\r
-               gvar->pm.xmm.XMSAvail = 0;\r
+               errorflag=true;\r
+               err = _BL;\r
                goto error;\r
        }\r
-\r
-       gvar->mmi.XMSmem = gvar->pm.xmm.XMSAvail * 1024;\r
-\r
-       gvar->pm.xmm.XMSPresent = true;\r
+       e++;\r
+#endif\r
 error:\r
-       printf("XMSstart        %u      %u\n", gvar->mmi.XMSmem, gvar->pm.xmm.XMSAvail);\r
-       return(gvar->pm.xmm.XMSPresent);*/\r
+       if(errorflag==false)\r
+       {\r
+               gvar->mmi.XMSmem = (dword)(XMSAVI) * 1024;\r
+#ifdef STARTUPXMSASM\r
+               gvar->pm.xmm.XMSAvail = XMSAVI;\r
+               gvar->pm.xmm.XMSHandle = XMSHAN;\r
+#endif\r
+//++++         gvar->pm.xmm.XMSVer = XMSVer;\r
+               gvar->pm.xmm.XMSPresent = true;\r
+#ifdef __DEBUG_PM__\r
+               printf("        XMSmem=%lu      XMSAvail=%u\n", gvar->mmi.XMSmem, XMSAVI);\r
+#endif\r
+       }\r
+       else\r
+       {\r
+#ifdef __DEBUG_PM__\r
+               //printf("XMSHandle\n");\r
+               //printf("      1=%u    2=%u    3=%u    4=%u\n", XMSHandle1, XMSHandle2, XMSHandle3, XMSHandle4);\r
+               //printf("      2=%u    ", XMSHandle);\r
+               //printf("      %u", gvar->pm.xmm.XMSHandle);\r
+               printf("err=%02X        e=%u\n", err, e);\r
+#endif\r
+       }\r
+       return(gvar->pm.xmm.XMSPresent);\r
 }\r
 \r
 //\r

diff --git a/src/lib/typdefst.h b/src/lib/typdefst.h
index 119d867..6c5ca4e 100755 (executable)
--- a/src/lib/typdefst.h
+++ b/src/lib/typdefst.h
@@ -257,7 +257,7 @@ typedef struct
 typedef struct\r
 {\r
        boolean                 XMSPresent;\r
-       word                    XMSAvail,XMSPagesAvail,XMSHandle;\r
+       word                    XMSAvail,XMSPagesAvail,XMSHandle;//++++,XMSVer;\r
        dword                   XMSDriver;\r
        int                             XMSProtectPage;// = -1;\r
 } pm_xmmi_t;\r