boolean IN_KeyDown(byte code) polished

diff --git a/DEBUG.16W b/DEBUG.16W
new file mode 100755 (executable)
index 0000000..4e58075
--- /dev/null
+++ b/DEBUG.16W
@@ -0,0 +1,210 @@
+\e[0mSeg:0      Size:10046      Owner:0x0\r
+\e[41;31m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m\e[42;32m0000\r
+\e[0m\e[0mSeg:2837       Size:44 Owner:0x0\r
+\e[41;31m++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2863       Size:256        Owner:0x1650\r
+\e[44;34m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2963       Size:256        Owner:0x1442\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2a63       Size:256        Owner:0x1444\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2b63       Size:256        Owner:0x1446\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2c63       Size:256        Owner:0x1448\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2d63       Size:256        Owner:0x144a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2e63       Size:256        Owner:0x144c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2f63       Size:256        Owner:0x144e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3063       Size:256        Owner:0x1450\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3163       Size:256        Owner:0x1452\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3263       Size:256        Owner:0x1454\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3363       Size:256        Owner:0x1456\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3463       Size:256        Owner:0x1458\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3563       Size:256        Owner:0x145a\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3663       Size:256        Owner:0x145c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3763       Size:256        Owner:0x145e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3863       Size:256        Owner:0x1460\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3963       Size:256        Owner:0x1462\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3a63       Size:256        Owner:0x1464\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3b63       Size:256        Owner:0x1466\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3c63       Size:256        Owner:0x1468\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3d63       Size:256        Owner:0x146a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3e63       Size:256        Owner:0x146c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3f63       Size:256        Owner:0x146e\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4063       Size:256        Owner:0x1470\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4163       Size:256        Owner:0x1472\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4263       Size:256        Owner:0x1474\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4363       Size:256        Owner:0x1476\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4463       Size:256        Owner:0x1478\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4563       Size:256        Owner:0x147a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4663       Size:256        Owner:0x147c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4763       Size:256        Owner:0x147e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4863       Size:256        Owner:0x1480\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4963       Size:256        Owner:0x1482\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4a63       Size:256        Owner:0x1484\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4b63       Size:256        Owner:0x1486\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4c63       Size:256        Owner:0x1488\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4d63       Size:256        Owner:0x148a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4e63       Size:256        Owner:0x148c\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4f63       Size:256        Owner:0x148e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5063       Size:256        Owner:0x1490\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5163       Size:256        Owner:0x1492\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5263       Size:256        Owner:0x1494\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5363       Size:256        Owner:0x1496\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5463       Size:256        Owner:0x1498\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5563       Size:256        Owner:0x149a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5663       Size:256        Owner:0x149c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5763       Size:256        Owner:0x149e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5863       Size:256        Owner:0x14a0\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5963       Size:256        Owner:0x14a2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5a63       Size:256        Owner:0x14a4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5b63       Size:256        Owner:0x14a6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5c63       Size:256        Owner:0x14a8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5d63       Size:256        Owner:0x14aa\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5e63       Size:256        Owner:0x14ac\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5f63       Size:256        Owner:0x14ae\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6063       Size:256        Owner:0x14b0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6163       Size:256        Owner:0x14b2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6263       Size:256        Owner:0x14b4\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6363       Size:256        Owner:0x14b6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6463       Size:256        Owner:0x14b8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6563       Size:256        Owner:0x14ba\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6663       Size:256        Owner:0x14bc\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6763       Size:256        Owner:0x14be\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6863       Size:256        Owner:0x14c0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6963       Size:256        Owner:0x14c2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6a63       Size:256        Owner:0x14c4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6b63       Size:256        Owner:0x14c6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6c63       Size:256        Owner:0x14c8\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6d63       Size:256        Owner:0x14ca\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6e63       Size:256        Owner:0x14cc\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6f63       Size:256        Owner:0x14ce\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7063       Size:256        Owner:0x14d0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7163       Size:256        Owner:0x14d2\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7263       Size:256        Owner:0x14d4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7363       Size:256        Owner:0x14d6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7463       Size:256        Owner:0x14d8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7563       Size:256        Owner:0x14da\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7663       Size:256        Owner:0x14dc\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7763       Size:256        Owner:0x14de\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7863       Size:256        Owner:0x14e0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7963       Size:256        Owner:0x14e2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7a63       Size:256        Owner:0x14e4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7b63       Size:256        Owner:0x14e6\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7c63       Size:256        Owner:0x14e8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7d63       Size:256        Owner:0x14ea\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7e63       Size:256        Owner:0x14ec\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7f63       Size:256        Owner:0x14ee\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8063       Size:256        Owner:0x14f0\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8163       Size:256        Owner:0x14f2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8263       Size:256        Owner:0x14f4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8363       Size:256        Owner:0x14f6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8463       Size:256        Owner:0x14f8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8563       Size:256        Owner:0x14fa\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8663       Size:256        Owner:0x14fc\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8763       Size:256        Owner:0x14fe\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8863       Size:256        Owner:0x1500\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8963       Size:256        Owner:0x1502\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8a63       Size:256        Owner:0x1504\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8b63       Size:256        Owner:0x1506\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8c63       Size:256        Owner:0x1508\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8d63       Size:401        Owner:0xec1c\r
+\e[44;34m++++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:b863       Size:18332      Owner:0x0\r
+\e[41;31m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m
\ No newline at end of file

diff --git a/HEAP.16W b/HEAP.16W
new file mode 100755 (executable)
index 0000000..c45d5f2
--- /dev/null
+++ b/HEAP.16W
@@ -0,0 +1,69 @@
+\r
+       == default ==\r
+\r
+  USED block at 28590016 of size 136\r
+  FREE block at 2859009e of size 68\r
+  USED block at 285900e2 of size 50\r
+  USED block at 28590114 of size 50\r
+  USED block at 28590146 of size 50\r
+  USED block at 28590178 of size 50\r
+  USED block at 285901aa of size 50\r
+  USED block at 285901dc of size 50\r
+  USED block at 2859020e of size 50\r
+  USED block at 28590240 of size 50\r
+  USED block at 28590272 of size 50\r
+  USED block at 285902a4 of size 50\r
+  USED block at 285902d6 of size 50\r
+  USED block at 28590308 of size 50\r
+  FREE block at 2859033a of size 14\r
+  USED block at 28590348 of size 20\r
+  FREE block at 2859035c of size 7328\r
+OK - end of heap\r
+\r
+       == near ==\r
+\r
+  USED block at 1858ec66 of size 12\r
+  USED block at 1858ec72 of size 330\r
+  USED block at 1858edbc of size 52\r
+  USED block at 1858edf0 of size 20\r
+  USED block at 1858ee04 of size 20\r
+  USED block at 1858ee18 of size 20\r
+  USED block at 1858ee2c of size 20\r
+  USED block at 1858ee40 of size 20\r
+  USED block at 1858ee54 of size 4520\r
+OK - end of heap\r
+\r
+       == far ==\r
+\r
+  USED block at 28590016 of size 136\r
+  USED block at 2859009e of size 68\r
+  USED block at 285900e2 of size 50\r
+  USED block at 28590114 of size 50\r
+  USED block at 28590146 of size 50\r
+  USED block at 28590178 of size 50\r
+  USED block at 285901aa of size 50\r
+  USED block at 285901dc of size 50\r
+  USED block at 2859020e of size 50\r
+  USED block at 28590240 of size 50\r
+  USED block at 28590272 of size 50\r
+  USED block at 285902a4 of size 50\r
+  USED block at 285902d6 of size 50\r
+  USED block at 28590308 of size 50\r
+  USED block at 2859033a of size 14\r
+  USED block at 28590348 of size 20\r
+  USED block at 2859035c of size 7328\r
+OK - end of heap\r
+\r
+Memory Type         Total      Used       Free\r
+----------------  --------   --------   --------\r
+Default                   8166         756       7410\r
+Near              5014         494       4520\r
+Far               8166         756       7410\r
+----------------  --------   --------   --------\r
+coreleft = 4518\r
+farcoreleft = 28156\r
+GetFreeSize = 23660\r
+GetNearFreeSize = 4520\r
+GetFarFreeSize = 23660\r
+memavl = 4518\r
+stackavail = 31539\r

diff --git a/MMDUMP.16W b/MMDUMP.16W
new file mode 100755 (executable)
index 0000000..83946af
Binary files /dev/null and b/MMDUMP.16W differ

diff --git a/src/vrstest.c b/src/vrstest.c
index 03220799f07187d5efd484ca62581a00f260089a..d3c28297e3ce8dbf6f4c48a1bdb673dfe5d93b49 100755 (executable)
--- a/src/vrstest.c
+++ b/src/vrstest.c
@@ -25,7 +25,7 @@
 #include "src/lib/16_vl.h"\r
 #include "src/lib/16_sprit.h"\r
 #include "src/lib/16_pm.h"\r
-//#include "src/lib/16_ca.h"\r
+#include "src/lib/16_ca.h"\r
 #include "src/lib/16_mm.h"\r
 \r
 extern boolean dbg_notest;\r
@@ -40,8 +40,6 @@ void main() {
        word start;\r
        float t1, t2;\r
        //boolean baka;\r
-       byte *pal=0;\r
-       int size=0;\r
        struct sprite spri;\r
        //vrl1_vgax_offset_t * off, *off1;\r
        struct vrs_container vrs;\r
@@ -51,6 +49,8 @@ void main() {
        uint32_t vrl_size;\r
        int num_of_vrl;\r
        struct vrl1_vgax_header far *curr_vrl;\r
+       byte *pal=0;\r
+       int size=0;\r
        word w=0;\r
        dbg_notest=1;\r
 \r