X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=rtl%2FSYSTEM.java;h=44e1cc321a594c4adb723c82b35c58b07dbe6e33;hb=f4aa48e4c1e3b81ccbe3da5c33fdaba3a46081dd;hp=38f488694a9b8996766edfa36d342f7a00b33a3c;hpb=6d3cfbfd343c0d069896734e32a8c490f27cb7aa;p=dsw-obn.git

diff --git a/rtl/SYSTEM.java b/rtl/SYSTEM.java
index 38f4886..44e1cc3 100644
--- a/rtl/SYSTEM.java
+++ b/rtl/SYSTEM.java
@@ -43,4 +43,20 @@ public class SYSTEM
 	{
 		assert x : n;
 	}
+
+	public static void TRAP(long n)
+	{
+		if(n == -1)
+		{
+			throw new RuntimeException("CASE TRAP");
+		}
+		else if(n == -2)
+		{
+			throw new RuntimeException("WITH TRAP");
+		}
+		else
+		{
+			throw new RuntimeException("TRAP CODE " + n);
+		}
+	}
 }