グラフィック系を大幅に高速化,16,2進数リテラルの実�

SMILEBASIC/systemvariable.d

@@ -1,10 +1,11 @@
 module otya.smilebasic.systemvariable;
 import otya.smilebasic.type;
 import otya.smilebasic.error;
+import otya.smilebasic.vm;
 class SystemVariable
 {
     @property
-        abstract Value value();
+        abstract Value value(VM vm);
     @property
         void value(Value value)
         {
@@ -17,7 +18,7 @@ import std.conv;
 class Date : SystemVariable
 {
     @property
-    override Value value()
+    override Value value(VM vm)
     {
         auto currentTime = Clock.currTime();
         wstring timeString = format("%04d/%02d/%02d", currentTime.year, currentTime.month, currentTime.day).to!wstring;
@@ -27,11 +28,43 @@ class Date : SystemVariable
 class Time : SystemVariable
 {
     @property
-    override Value value()
+    override Value value(VM vm)
     {
         auto currentTime = Clock.currTime();
         wstring timeString = format("%02d:%02d:%02d", currentTime.hour, currentTime.minute, currentTime.second).to!wstring;
         return Value(timeString);
     }
 }
+class Maincnt : SystemVariable
+{
+    @property
+        override Value value(VM vm)
+        {
+            return Value(vm.petitcomputer.maincnt);
+        }
+}
+class CSRX : SystemVariable
+{
+    @property
+        override Value value(VM vm)
+        {
+            return Value(vm.petitcomputer.CSRX);
+        }
+}
+class CSRY : SystemVariable
+{
+    @property
+        override Value value(VM vm)
+        {
+            return Value(vm.petitcomputer.CSRY);
+        }
+}
+class CSRZ : SystemVariable
+{
+    @property
+        override Value value(VM vm)
+        {
+            return Value(vm.petitcomputer.CSRZ);
+        }
+}