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

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);
+		}
+	}
 }