Download source files:
http://www.jkofsp.net/files/

<ASMLib.cs>

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace ASMLib
{
   public static class Asm
   {
       enum Opcode
       {
nop = 0,
           end = 1,

           mov1 = 2,
           mov2 = 3,
           mov4 = 4,
           mov8 = 5,

           z2r = 6,
           r2z = 7,
           z2char = 8,
           char2z = 9,

           add4 = 10,
           add8 = 11,
           sub4 = 12,
           sub8 = 13,
           mul4 = 14,
           mul8 = 15,
           div4 = 16,
           div8 = 17,
           mod = 18,

           and1 = 19,
           and4 = 20,
           or1 = 21,
           or4 = 22,
           xor1 = 23,
           xor4 = 24,
           not1 = 25,
           not4 = 26,

           shl = 27,
           shr = 28,

           eq1 = 29,
           eq2 = 30,
           eq4 = 31,
           eq8 = 32,
           lt4 = 33,
           lt8 = 34,
           gt4 = 35,
           gt8 = 36,

           jmp = 37,
           jmpc = 38,

           push1 = 39,
           push2 = 40,
           push4 = 41,
           push8 = 42,
           pop1 = 43,
           pop2 = 44,
           pop4 = 45,
           pop8 = 46,

           call = 47,
           ret = 48,

           pow = 52,
           log = 53,
           sin = 54,
           cos = 55,
           tan = 56,
           asin = 57,
           acos = 58,
           atan = 59,

           rnd = 60,
           rndi = 61,

           tick = 62,
           ticksh = 63,

           new_ = 64,
           del = 65,
           size = 66,

           doe = 67,
debug = 68,

           exdel = 69,

           z2str = 70,
           z2strb = 71,
           z2strh = 72,
           r2str = 73,

           str2z = 74,
           strb2z = 75,
           strh2z = 76,
           str2r = 77,

           arrcpy = 78,
arrcmp = 79,

           newreader = 80,
           newwriter = 81,
           closereader = 82,
           closewriter = 83,
           readerlen = 84,
           read1 = 85,
           read2 = 86,
           read4 = 87,
           read8 = 88,
           readarray = 89,
           write1 = 90,
           write2 = 91,
           write4 = 92,
           write8 = 93,
           writearray = 94,

           key = 95,
           left = 96,
           right = 97,
           middle = 98,
           mousedz = 99,
           mousex = 100,
           mousey = 101,

           clear = 102,
           present = 103,
           newsurf = 104,
           surfdx = 105,
           surfdy = 106,
           blt = 107,
           drawline = 108,
           drawbox = 109,
           drawrbox = 110,
           drawellipse = 111,
           drawtext = 112,

           newsndbuf = 113,
           getvolume = 114,
           setvolume = 115,
           play = 116,
           stop = 117,
       }

       enum Addressing
       {
           Immediate = 0,
           X = 1,
           HP = 2,
           Data = 3,
           Stack = 4,
           Heap = 5,
       }

       enum TokenType
       {
           None = 0,

           Identifier,
           Opcode,
           LabelMark,
           LabelValue,
           Comma,
           Bool,
           Char,
           Z,
           R,
           X,
           HP,
           Data,
           Stack,
           Heap,
       }

       struct Token
       {
           public TokenType Type;
           public string Value;

           public Token(TokenType type, string value) { Type = type; Value = value; }
       }

       struct Mov
       {
           public string LabelMark; // nullにしてもよい
           public Opcode TheOpcode;
           public Addressing DestAddressing;
           public string Dest;
           public bool SrcIsLabelValue;
           public Addressing SrcAddressing;
           public string Src;
       }

       struct Other
       {
           public string LabelMark; // nullにしてもよい
           public Opcode TheOpcode;
           public byte[] Xs;

           public Other(string labelMark, Opcode theOpcode, byte[] xs) { LabelMark = labelMark; TheOpcode = theOpcode; Xs = xs; }
       }

public class MyException : Exception
{
public int LineID;
public MyException(int lineID) { LineID = lineID; }
       }

       public static void OK(List<string> asmLines, Stream outputFile)
       {
           if (asmLines.Count == 0)
               return;

           List<List<Token>> tokenLines = new List<List<Token>>(); // 空の行も含まれる
           List<object> codeLines = new List<object>(); // 空の行も含まれる、MovかOtherを格納する

           for (int i = 0; i < asmLines.Count; i++)
           {
               tokenLines.Add(new List<Token>());

               for (int j = 0; j < asmLines[i].Length; )
               {
                   Token? token;
                   try
                   {
                       token = NextToken(asmLines[i], ref j);
                   }
                   catch (Exception)
                   {
                       throw new MyException(i);
                       return;
                   }
                   if (token == null)
                       break;
                   Token token_ = token.Value;
                   if (token_.Type == TokenType.Identifier)
                       token_ = CheckIdentifier(token_);
                   if (token_.Type == TokenType.LabelMark)
                       if (!CheckLabelMark(token_))
                       {
                           throw new MyException(i);
                           return;
                       }
                   tokenLines[i].Add(token_);
               }
           }

           for (int i = 0; i < tokenLines.Count; i++)
           {
               if (tokenLines[i].Count == 0)
               {
                   codeLines.Add(null);
                   continue;
               }

               try
               {
                   string tLabelMark;
                   if (tokenLines[i][0].Type == TokenType.LabelMark)
                   {
                       if (tokenLines[i].Count < 2)
                           throw new Exception();
                       tLabelMark = tokenLines[i][0].Value;
                   }
                   else
                   {
                       tLabelMark = null;
                   }

                   if (tokenLines[i][tLabelMark == null ? 0 : 1].Type != TokenType.Opcode)
                       throw new Exception();
                   if (tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov1"
                       || tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov2"
                       || tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov4"
                       || tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov8")
                   {
                       if (tokenLines[i].Count != (tLabelMark == null ? 4 : 5))
                           throw new Exception();
                       if (tokenLines[i][tLabelMark == null ? 2 : 3].Type != TokenType.Comma)
                           throw new Exception();
                       if (tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.Bool
                           || tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.Char
                           || tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.Z
                           || tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.R
                           || tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.LabelValue)
                           throw new Exception();
                       if (tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.Bool
                           || tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.Char
                           || tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.Z
                           || tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.R)
                       {
                           if (tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov1")
                           {
                               if (tokenLines[i][tLabelMark == null ? 3 : 4].Type != TokenType.Bool)
                                   throw new Exception();
                           }
                           else if (tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov2")
                           {
                               if (tokenLines[i][tLabelMark == null ? 3 : 4].Type != TokenType.Char)
                                   throw new Exception();
                           }
                           else if (tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov4")
                           {
                               if (tokenLines[i][tLabelMark == null ? 3 : 4].Type != TokenType.Z)
                                   throw new Exception();
                           }
                           else if (tokenLines[i][tLabelMark == null ? 0 : 1].Value == "mov8")
                           {
                               if (tokenLines[i][tLabelMark == null ? 3 : 4].Type != TokenType.R)
                                   throw new Exception();
                           }
                       }
                       if (tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.HP
                           || tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.HP
                           || tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.LabelValue)
                           if (tokenLines[i][tLabelMark == null ? 0 : 1].Value != "mov4")
                               throw new Exception();
                       if (tokenLines[i][tLabelMark == null ? 1 : 2].Type == TokenType.HP)
                           if (tokenLines[i][tLabelMark == null ? 3 : 4].Type == TokenType.Z)
                               throw new Exception();  // mov4 hp, 123 に対応しない
                       Mov tMov = new Mov();
                       tMov.LabelMark = tLabelMark;
                       switch (tokenLines[i][tLabelMark == null ? 0 : 1].Value)
                       {
                           case "mov1":
                               tMov.TheOpcode = Opcode.mov1;
                               break;
                           case "mov2":
                               tMov.TheOpcode = Opcode.mov2;
                               break;
                           case "mov4":
                               tMov.TheOpcode = Opcode.mov4;
                               break;
                           case "mov8":
                               tMov.TheOpcode = Opcode.mov8;
                               break;
                       }
                       switch (tokenLines[i][tLabelMark == null ? 1 : 2].Type)
                       {
                           case TokenType.X:
                               tMov.DestAddressing = Addressing.X;
                               break;
                           case TokenType.HP:
                               tMov.DestAddressing = Addressing.HP;
                               break;
                           case TokenType.Data:
                               tMov.DestAddressing = Addressing.Data;
                               break;
                           case TokenType.Stack:
                               tMov.DestAddressing = Addressing.Stack;
                               break;
                           case TokenType.Heap:
                               tMov.DestAddressing = Addressing.Heap;
                               break;
                       }
                       tMov.Dest = tokenLines[i][tLabelMark == null ? 1 : 2].Value;
                       switch (tokenLines[i][tLabelMark == null ? 3 : 4].Type)
                       {
                           case TokenType.LabelValue:
                               tMov.SrcIsLabelValue = true;
                               tMov.SrcAddressing = Addressing.Immediate;
                               break;
                           case TokenType.Bool:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Immediate;
                               break;
                           case TokenType.Char:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Immediate;
                               break;
                           case TokenType.Z:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Immediate;
                               Int32.Parse(tokenLines[i][tLabelMark == null ? 3 : 4].Value); // テストのみ、戻り値を無視する ("-"のみの場合、lexerではなく、ここで例外を!)
                               break;
                           case TokenType.R:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Immediate;
                               double.Parse(tokenLines[i][tLabelMark == null ? 3 : 4].Value); // テストのみ、戻り値を無視する
                               break;
                           case TokenType.X:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.X;
                               break;
                           case TokenType.HP:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.HP;
                               break;
                           case TokenType.Data:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Data;
                               break;
                           case TokenType.Stack:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Stack;
                               break;
                           case TokenType.Heap:
                               tMov.SrcIsLabelValue = false;
                               tMov.SrcAddressing = Addressing.Heap;
                               break;
                       }
                       tMov.Src = tokenLines[i][tLabelMark == null ? 3 : 4].Value;
                       codeLines.Add(tMov);
                   }
                   else
                   {
                       List<byte> tXs = new List<byte>();
                       if (tokenLines[i].Count >= (tLabelMark == null ? 2 : 3))
                       {
                           if (tokenLines[i][tLabelMark == null ? 1 : 2].Type != TokenType.X)
                               throw new Exception();
                           byte tX = byte.Parse(tokenLines[i][tLabelMark == null ? 1 : 2].Value.Substring(1));
                           if (tX > 15)
                               throw new Exception();
                           tXs.Add(tX);
                           if (tokenLines[i].Count >= (tLabelMark == null ? 3 : 4))
                           {
                               if (tokenLines[i][tLabelMark == null ? 2 : 3].Type != TokenType.Comma)
                                   throw new Exception();
                               if (tokenLines[i].Count < (tLabelMark == null ? 4 : 5))
                                   throw new Exception();
                               if (tokenLines[i][tLabelMark == null ? 3 : 4].Type != TokenType.X)
                                   throw new Exception();
                               tX = byte.Parse(tokenLines[i][tLabelMark == null ? 3 : 4].Value.Substring(1));
                               if (tX > 15)
                                   throw new Exception();
                               tXs.Add(tX);
                               if (tokenLines[i].Count >= (tLabelMark == null ? 5 : 6))
                               {
                                   if (tokenLines[i][tLabelMark == null ? 4 : 5].Type != TokenType.Comma)
                                       throw new Exception();
                                   if (tokenLines[i].Count < (tLabelMark == null ? 6 : 7))
                                       throw new Exception();
                                   if (tokenLines[i][tLabelMark == null ? 5 : 6].Type != TokenType.X)
                                       throw new Exception();
                                   tX = byte.Parse(tokenLines[i][tLabelMark == null ? 5 : 6].Value.Substring(1));
                                   if (tX > 15)
                                       throw new Exception();
                                   tXs.Add(tX);
                                   if (tokenLines[i].Count >= (tLabelMark == null ? 7 : 8))
                                   {
                                       if (tokenLines[i].Count != (tLabelMark == null ? 12 : 13))
                                           throw new Exception();
                                       if (tokenLines[i][tLabelMark == null ? 6 : 7].Type != TokenType.Comma
                                           || tokenLines[i][tLabelMark == null ? 8 : 9].Type != TokenType.Comma
                                           || tokenLines[i][tLabelMark == null ? 10 : 11].Type != TokenType.Comma)
                                           throw new Exception();
                                       if (tokenLines[i][tLabelMark == null ? 7 : 8].Type != TokenType.X
                                           || tokenLines[i][tLabelMark == null ? 9 : 10].Type != TokenType.X
                                           || tokenLines[i][tLabelMark == null ? 11 : 12].Type != TokenType.X)
                                           throw new Exception();
                                       tX = byte.Parse(tokenLines[i][tLabelMark == null ? 7 : 8].Value.Substring(1));
                                       if (tX > 15)
                                           throw new Exception();
                                       tXs.Add(tX);
                                       tX = byte.Parse(tokenLines[i][tLabelMark == null ? 9 : 10].Value.Substring(1));
                                       if (tX > 15)
                                           throw new Exception();
                                       tXs.Add(tX);
                                       tX = byte.Parse(tokenLines[i][tLabelMark == null ? 11 : 12].Value.Substring(1));
                                       if (tX > 15)
                                           throw new Exception();
                                       tXs.Add(tX);
                                   }
                               }

                           }
                       }
                       if (tXs.Count > 1)
                           for (int j = 0; j < tXs.Count; j++)
                               for (int k = 0; k < tXs.Count; k++)
                               {
                                   if (k == j)
                                       continue;
                                   if (tXs[k] == tXs[j])
                                       throw new Exception();
                               }
                       
                       switch (tokenLines[i][tLabelMark == null ? 0 : 1].Value)
                       {
case "nop":
if (tXs.Count != 0) throw new Exception();
codeLines.Add(new Other(tLabelMark, Opcode.nop, tXs.ToArray()));
break;

                           case "end":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.end, tXs.ToArray()));
                               break;

                           case "z2r":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.z2r, tXs.ToArray()));
                               break;
                           case "r2z":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.r2z, tXs.ToArray()));
                               break;
                           case "z2char":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.z2char, tXs.ToArray()));
                               break;
                           case "char2z":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.char2z, tXs.ToArray()));
                               break;

                           case "add4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.add4, tXs.ToArray()));
                               break;
                           case "add8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.add8, tXs.ToArray()));
                               break;
                           case "sub4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.sub4, tXs.ToArray()));
                               break;
                           case "sub8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.sub8, tXs.ToArray()));
                               break;
                           case "mul4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.mul4, tXs.ToArray()));
                               break;
                           case "mul8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.mul8, tXs.ToArray()));
                               break;
                           case "div4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.div4, tXs.ToArray()));
                               break;
                           case "div8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.div8, tXs.ToArray()));
                               break;
                           case "mod":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.mod, tXs.ToArray()));
                               break;

                           case "and1":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.and1, tXs.ToArray()));
                               break;
                           case "and4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.and4, tXs.ToArray()));
                               break;
                           case "or1":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.or1, tXs.ToArray()));
                               break;
                           case "or4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.or4, tXs.ToArray()));
                               break;
                           case "xor1":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.xor1, tXs.ToArray()));
                               break;
                           case "xor4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.xor4, tXs.ToArray()));
                               break;
                           case "not1":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.not1, tXs.ToArray()));
                               break;
                           case "not4":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.not4, tXs.ToArray()));
                               break;

                           case "shl":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.shl, tXs.ToArray()));
                               break;
                           case "shr":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.shr, tXs.ToArray()));
                               break;

                           case "eq1":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.eq1, tXs.ToArray()));
                               break;
                           case "eq2":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.eq2, tXs.ToArray()));
                               break;
                           case "eq4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.eq4, tXs.ToArray()));
                               break;
                           case "eq8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.eq8, tXs.ToArray()));
                               break;
                           case "lt4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.lt4, tXs.ToArray()));
                               break;
                           case "lt8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.lt8, tXs.ToArray()));
                               break;
                           case "gt4":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.gt4, tXs.ToArray()));
                               break;
                           case "gt8":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.gt8, tXs.ToArray()));
                               break;

                           case "jmp":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.jmp, tXs.ToArray()));
                               break;
                           case "jmpc":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.jmpc, tXs.ToArray()));
                               break;

                           case "push1":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.push1, tXs.ToArray()));
                               break;
                           case "push2":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.push2, tXs.ToArray()));
                               break;
                           case "push4":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.push4, tXs.ToArray()));
                               break;
                           case "push8":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.push8, tXs.ToArray()));
                               break;
                           case "pop1":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.pop1, tXs.ToArray()));
                               break;
                           case "pop2":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.pop2, tXs.ToArray()));
                               break;
                           case "pop4":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.pop4, tXs.ToArray()));
                               break;
                           case "pop8":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.pop8, tXs.ToArray()));
                               break;

                           case "call":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.call, tXs.ToArray()));
                               break;
                           case "ret":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.ret, tXs.ToArray()));
                               break;

                           case "pow":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.pow, tXs.ToArray()));
                               break;
                           case "log":
                               if (tXs.Count != 3) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.log, tXs.ToArray()));
                               break;
                           case "sin":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.sin, tXs.ToArray()));
                               break;
                           case "cos":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.cos, tXs.ToArray()));
                               break;
                           case "tan":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.tan, tXs.ToArray()));
                               break;
                           case "asin":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.asin, tXs.ToArray()));
                               break;
                           case "acos":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.acos, tXs.ToArray()));
                               break;
                           case "atan":
                               if (tXs.Count != 2) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.atan, tXs.ToArray()));
                               break;

                           case "rnd":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.rnd, tXs.ToArray()));
                               break;
                           case "rndi":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.rndi, tXs.ToArray()));
                               break;

                           case "tick":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.tick, tXs.ToArray()));
                               break;
                           case "ticksh":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.ticksh, tXs.ToArray()));
                               break;

                           case "new":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.new_, tXs.ToArray()));
                               break;
                           case "del":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.del, tXs.ToArray()));
                               break;
                           case "size":
                               if (tXs.Count != 1) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.size, tXs.ToArray()));
                               break;

                           case "doe":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.doe, tXs.ToArray()));
               break;
           case "debug":
               if (tXs.Count != 0) throw new Exception();
               codeLines.Add(new Other(tLabelMark, Opcode.debug, tXs.ToArray()));
               break;

                           case "exdel":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.exdel, tXs.ToArray()));
                               break;

                           case "z2str":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.z2str, tXs.ToArray()));
                               break;
                           case "z2strb":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.z2strb, tXs.ToArray()));
                               break;
                           case "z2strh":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.z2strh, tXs.ToArray()));
                               break;
                           case "r2str":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.r2str, tXs.ToArray()));
                               break;

                           case "str2z":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.str2z, tXs.ToArray()));
                               break;
                           case "strb2z":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.strb2z, tXs.ToArray()));
                               break;
                           case "strh2z":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.strh2z, tXs.ToArray()));
                               break;
                           case "str2r":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.str2r, tXs.ToArray()));
                               break;

                           case "arrcpy":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.arrcpy, tXs.ToArray()));
                               break;
case "arrcmp":
               if (tXs.Count != 0) throw new Exception();
               codeLines.Add(new Other(tLabelMark, Opcode.arrcmp, tXs.ToArray()));
               break;

                           case "newreader":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.newreader, tXs.ToArray()));
                               break;
                           case "newwriter":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.newwriter, tXs.ToArray()));
                               break;
                           case "closereader":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.closereader, tXs.ToArray()));
                               break;
                           case "closewriter":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.closewriter, tXs.ToArray()));
                               break;
                           case "readerlen":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.readerlen, tXs.ToArray()));
                               break;
                           case "read1":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.read1, tXs.ToArray()));
                               break;
                           case "read2":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.read2, tXs.ToArray()));
                               break;
                           case "read4":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.read4, tXs.ToArray()));
                               break;
                           case "read8":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.read8, tXs.ToArray()));
                               break;
                           case "readarray":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.readarray, tXs.ToArray()));
                               break;
                           case "write1":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.write1, tXs.ToArray()));
                               break;
                           case "write2":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.write2, tXs.ToArray()));
                               break;
                           case "write4":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.write4, tXs.ToArray()));
                               break;
                           case "write8":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.write8, tXs.ToArray()));
                               break;
                           case "writearray":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.writearray, tXs.ToArray()));
                               break;

                           case "key":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.key, tXs.ToArray()));
                               break;
                           case "left":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.left, tXs.ToArray()));
                               break;
                           case "right":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.right, tXs.ToArray()));
                               break;
                           case "middle":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.middle, tXs.ToArray()));
                               break;
                           case "mousedz":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.mousedz, tXs.ToArray()));
                               break;
                           case "mousex":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.mousex, tXs.ToArray()));
                               break;
                           case "mousey":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.mousey, tXs.ToArray()));
                               break;

                           case "clear":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.clear, tXs.ToArray()));
                               break;
                           case "present":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.present, tXs.ToArray()));
                               break;
                           case "newsurf":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.newsurf, tXs.ToArray()));
                               break;
                           case "surfdx":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.surfdx, tXs.ToArray()));
                               break;
                           case "surfdy":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.surfdy, tXs.ToArray()));
                               break;
                           case "blt":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.blt, tXs.ToArray()));
                               break;
                           case "drawline":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.drawline, tXs.ToArray()));
                               break;
                           case "drawbox":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.drawbox, tXs.ToArray()));
                               break;
                           case "drawrbox":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.drawrbox, tXs.ToArray()));
                               break;
                           case "drawellipse":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.drawellipse, tXs.ToArray()));
                               break;
                           case "drawtext":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.drawtext, tXs.ToArray()));
                               break;

                           case "newsndbuf":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.newsndbuf, tXs.ToArray()));
                               break;
                           case "getvolume":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.getvolume, tXs.ToArray()));
                               break;
                           case "setvolume":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.setvolume, tXs.ToArray()));
                               break;
                           case "play":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.play, tXs.ToArray()));
                               break;
                           case "stop":
                               if (tXs.Count != 0) throw new Exception();
                               codeLines.Add(new Other(tLabelMark, Opcode.stop, tXs.ToArray()));
                               break;
                       }
                   }
               }
               catch (Exception)
               {
                   throw new MyException(i);
                   return;
               }
           }