68f82bd0983c3ee348507e7903023dc63318cf8c
3 /* Каркас для фреймов процедур */
4 public static abstract class FRAME
9 /* Длинна строки LEN(s$) */
10 public static int LEN(byte[] x
)
20 public static void COPY(byte[] x
, byte[] v
)
23 int len_v
= v
.length
- 1;
25 int len
= (len_x
< len_v
) ?
(len_x
) : (len_v
);
26 for(int i
= 0; i
< len
; i
++)
34 public static int STRCMP(byte[] a
, byte[] b
)
37 while(a
[i
] != 0 && a
[i
] == b
[i
])
44 public static void HALT(long n
)
49 public static void ASSERT(boolean x
)
54 public static void ASSERT(boolean x
, long n
)
59 public static void TRAP(long n
)
63 throw new RuntimeException("CASE TRAP");
67 throw new RuntimeException("WITH TRAP");
71 throw new RuntimeException("TRAP CODE " + n
);