X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=rtl%2FSYSTEM.java;h=ce1b50621e447042154ad9d70dc11136278673ff;hp=28d8c466df99d528685380520b5429a2248a18e5;hb=7b989fe6cfb3cf6e529b888bb6827714c45c62c6;hpb=023ef0d8349acdfe751bba1b50749361682f72ff diff --git a/rtl/SYSTEM.java b/rtl/SYSTEM.java index 28d8c46..ce1b506 100644 --- a/rtl/SYSTEM.java +++ b/rtl/SYSTEM.java @@ -17,6 +17,11 @@ public class SYSTEM return i; } + public static String STRING(byte[] x) + { + return new String(x, 0, LEN(x)); + } + public static void COPY(byte[] x, byte[] v) { int ix = LEN(x); @@ -67,6 +72,10 @@ public class SYSTEM { throw new RuntimeException("WITH TRAP"); } + else if(n == -3) + { + throw new RuntimeException("NOT IMPLEMENTED"); + } else { throw new RuntimeException("TRAP CODE " + n);