ce1b50621e447042154ad9d70dc11136278673ff
3 /* Каркас для фреймов процедур */
4 public static abstract class FRAME
9 /* Длинна строки LEN(s$) */
10 public static int LEN(byte[] x
)
20 public static String
STRING(byte[] x
)
22 return new String(x
, 0, LEN(x
));
25 public static void COPY(byte[] x
, byte[] v
)
28 int iv
= v
.length
- 1;
31 int len
= (ix
< iv
) ?
(ix
) : (iv
);
40 public static int STRCMP(byte[] a
, byte[] b
)
43 while(a
[i
] != 0 && a
[i
] == b
[i
])
50 public static void HALT(long n
)
55 public static void ASSERT(boolean x
)
60 public static void ASSERT(boolean x
, long n
)
65 public static void TRAP(long n
)
69 throw new RuntimeException("CASE TRAP");
73 throw new RuntimeException("WITH TRAP");
77 throw new RuntimeException("NOT IMPLEMENTED");
81 throw new RuntimeException("TRAP CODE " + n
);