1 /* ====== BEGIN INCLUDE SEGMENT         apl_operator_codes.incl.pl1 =============================== */
 2 
 3 /* This include file contains declarations of the 9-bit codes used for each operator. */
 4 
 5 /* Modified 811211 by H. Hoover (UofC) to add quadcall_semicolon_code. */
 6 /* Modified 811211 by H. Hoover (UofC) to add semicolon_cons_code. */
 7 
 8 declare   (plus_code          init (0),
 9           minus_code          init (1),
10           times_code          init (2),
11           divide_code         init (3),
12           max_code            init (4),
13           min_code            init (5),
14           power_code          init (6),
15           log_code            init (7),
16           residue_code        init (8),
17           factorial_code      init (9),
18           trig_code           init (10),
19           and_code            init (11),
20           or_code             init (12),
21           nand_code           init (13),
22           nor_code            init (14),
23           less_code           init (15),
24           less_equal_code     init (16),
25           equal_code          init (17),
26           greater_equal_code  init (18),
27           greater_code        init (19),
28           not_equal_code      init (20),
29 
30 /* space will be left here in case more simple operators are added one day */
31 
32           rho_code            init (36),
33           ravel_code          init (37),
34           iota_code           init (38),
35           take_code           init (39),
36           leave_code          init (40),
37           grade_up_code       init (41),
38           grade_down_code     init (42),
39           branch_code         init (67),
40           semicolon_cons_code init (72),
41           fnames_code         init (83),
42           fnums_code          init (84),
43           laminate_code       init (93),
44           stop_code           init (100),
45           trace_code          init (101),
46           assignment_code     init (102),
47           subscripted_assignment_code
48                               init (103),
49           assign_to_stop_code init (112),
50           assign_to_trace_code
51                               init (113),
52           quadcall_semicolon_code
53                               init (124)
54           ) fixed binary (8) internal static;
55 
56 /* ------ END INCLUDE SEGMENT           apl_operator_codes.incl.pl1 ------------------------------- */