--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/agcl/oldagsrc/good/scr4d.c	Sat Dec 22 17:52:45 2007 -0500
@@ -0,0 +1,1258 @@
+/*
+   AnaGram Syntax Analyzer. Copyright (c) Jerome T. Holland, 1989, 1990, 1991.
+   All Rights Reserved.
+*/
+
+#include HEADERS
+#include PF
+
+#include STDLIB
+#include DATA
+#include ASSERT
+#include MYALLOC
+#include ARRAYS
+#include SP
+#include SCREEN
+#include STK
+#include SCR4D
+#include SETJMP
+#include STDARG
+#include STDIO
+#include WIN
+/* #include DIRECT */
+#include DEMO
+
+dc          *activate_window(dc *);
+void         bury_top_image(void);
+int          chdir_s1(char*);
+dc          *check_selection(dc *);
+dc          *clear_mode(dc *);
+int          display_line_number(int);
+extern dc   *edit_window;
+void         force_screen_real(void);
+void         hide_cursor(void);
+dc          *prt(dc*);
+extern dc   *quick_ref_display;
+void         remove_ghost(dc *);
+dc          *open_windows(dc *);
+dc          *resize_window_mode(dc *);
+void         set_work_dir(void);
+void         update_screen(dc *);
+dc          *window_move(dc *);
+int          wkb(void);
+void         xeq_qa(void);
+
+extern long current_date, expiration_date;
+
+
+scr_pcb_type scr_pcb;
+#define PCB scr_pcb
+
+#define GET_INPUT PCB.input_code = wkb()
+#define PARSE_STACK_OVERFLOW myabort();
+#define SYNTAX_ERROR
+
+
+extern rect mode_area;
+extern rect position_area;
+extern cint current_cursor;
+
+extern dc *active_dc;
+extern dc *cmnd_map_display;
+extern dc *file_pick_display;
+extern dc *help_index;
+extern dc *pick_list_display;
+extern dc *quick_ref_display;
+extern dc *window_menu_display;
+
+extern int n_windows;
+extern char *string_base;
+
+extern char *current_mode_string;
+
+void sbeep(void);
+
+
+/*
+ * AnaGram, A System for Syntax Directed Programming
+ * File generated by: ...
+ *
+ * AnaGram Parsing Engine
+ * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
+ *
+ * This software is provided 'as-is', without any express or implied
+ * warranty.  In no event will the authors be held liable for any damages
+ * arising from the use of this software.
+ *
+ * Permission is granted to anyone to use this software for any purpose,
+ * including commercial applications, and to alter it and redistribute it
+ * freely, subject to the following restrictions:
+ *
+ * 1. The origin of this software must not be misrepresented; you must not
+ *    claim that you wrote the original software. If you use this software
+ *    in a product, an acknowledgment in the product documentation would be
+ *    appreciated but is not required.
+ * 2. Altered source versions must be plainly marked as such, and must not be
+ *    misrepresented as being the original software.
+ * 3. This notice may not be removed or altered from any source distribution.
+ */
+
+#ifndef SCR4D_H
+#include "scr4d.h"
+#endif
+
+#ifndef SCR4D_H
+#error Mismatched header file
+#endif
+
+#include <stdio.h>
+
+#define RULE_CONTEXT (&((PCB).cs[(PCB).ssx]))
+#define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx])
+#define CONTEXT ((PCB).cs[(PCB).ssx])
+
+
+#define CHANGE_REDUCTION(x) scr_change_reduction(scr_##x##_token)
+int scr_change_reduction(scr_token_type);
+
+
+#line - "scr4d.syn"
+#define F1                  315
+#define F2                  316
+#define F3                  317
+#define F4                  318
+#define F5                  319
+#define F6                  320
+#define F7                  321
+#define F8                  322
+#define F9                  323
+#define F10                 324
+#define ALT_F1              360
+#define ALT_F2              361
+#define ALT_F3              362
+#define ALT_F4              363
+#define ALT_F5              364
+#define ALT_F6              365
+#define ALT_F7              366
+#define ALT_F8              367
+#define ALT_F9              368
+#define ALT_F10             369
+
+#define move_code  F2
+#define reduce ALT_F2
+#define left   331
+#define right  333
+
+#line - "scr4d.c"
+#line - "scr4d.syn"
+#ifdef DEMO_FLAG
+void restrict_usage(void);
+
+dc *check_expiration(void) {
+		long *ex = &expiration_date + 47;
+		long *cd = &current_date + 252;
+    if (ex[-47] < cd[-252]) restrict_usage();
+    return NULL;
+ }
+#else
+dc *check_expiration(void) {return NULL;}
+#endif
+
+#line - "scr4d.c"
+#line - "scr4d.syn"
+void set_mode(char *);
+
+dc *replace_window(dc *d, dc *new);
+dc *pop_up_window(dc *d);
+
+#line - "scr4d.c"
+#line - "scr4d.syn"
+static int end_line_number_mode(int n){
+  flash_str_fill(mode_area.pos,current_mode_string,0,mode_area.size.x);
+  return n;
+}
+#line - "scr4d.c"
+#line - "scr4d.syn"
+static dc *reset_position_window(dc *d) {
+  flash_str_fill(mode_area.pos,current_mode_string,0,mode_area.size.x);
+  current_cursor.x = -1;
+  return d;
+}
+
+static int line_number_1(void) {
+  flash_str_fill(mode_area.pos,"Line Number",0,mode_area.size.x);
+  return 0;
+}
+
+static int line_number_2(int n, int d) {
+  return display_line_number(10*n+d-48);
+}
+static int line_number_3(int n) {
+  return display_line_number(n/10);
+}
+
+dc *find_help(char *);
+dc *pop_up_window(dc *);
+
+static dc *key_assign(dc *dm, char *title) {
+  dc *d = find_help(title);
+  if (d == NULL) return beep(dm);
+  return pop_up_window(d);
+}
+#line - "scr4d.c"
+#line - "scr4d.syn"
+dc *pop_up_aux_win_menu(dc *);
+dc *pop_up_aux_cmnd_menu(dc *);
+
+dc *first_clone(dc *);
+
+static dc *cycle_clone(dc *d) {
+  dc *c;
+  if (d->no_clone) return beep(d);
+  c = first_clone(d);
+  if (c != NULL) return pop_up_window(c);
+  return beep(d);
+}
+#line - "scr4d.c"
+#line - "scr4d.syn"
+extern char *search_key;
+char *old_string;
+int search_key_index;
+
+char *build_string(void);
+extern int search_flag;
+
+static dc *save_search_key(dc *d) {
+  if (search_key != NULL) free(search_key);
+  search_flag--;
+  search_key = build_string();
+  close_window(d);
+  hide_cursor();
+  activate_window(map_window_plane[--nplanes].d);
+  return active_dc;
+}
+
+extern char work_dir_name[];
+
+void set_work_dir(void);
+
+static dc *chdir_s2(dc *d) {
+  tss();
+  if (chdir_s1(string_base)) return beep(d);
+  rcs();
+  search_flag--;
+  CHANGE_REDUCTION(new_directory);
+  set_work_dir();
+/*  getcwd(work_dir_name, MAXPATH); */
+  set_work_dir();
+  close_window(d);
+  hide_cursor();
+  activate_window(map_window_plane[--nplanes].d);
+  return active_dc;
+}
+
+static dc *quit_search(dc *d) {
+  close_window(d);
+  rcs();
+  search_flag--;
+  hide_cursor();
+  activate_window(map_window_plane[--nplanes].d);
+  ok_ptr(active_dc->des);
+  active_dc->des->c_loc_doc.x = 0;
+  return active_dc;
+}
+#line - "scr4d.c"
+#line - "scr4d.syn"
+void search_key_line(void)   {
+  tss();
+  sss(string_base);
+}
+
+static dc *search_key_right(dc *d) {
+  if( tis() <= d->des->c_loc_doc.x) {
+    int c;
+    if (search_key == NULL) return d;
+    c = old_string[search_key_index];
+    if (c == 0) return d;
+    acs(c);
+    search_key_index++;
+    ok_ptr(d->des);
+    d->des->refresh++;
+  }
+  fiddle_window(d,right);
+  return d;
+}
+static dc *search_key_end(dc *d) {
+  ok_ptr(d->des);
+
+  if( tis() <= d->des->c_loc_doc.x) {
+    int c = old_string[search_key_index];
+    while (c) {
+      acs(c);
+      c = old_string[++search_key_index];
+    }
+  d->des->refresh++;
+  }
+  d->des->c_loc_doc.x = tis();
+  bound_cursor_hor(d->des);
+  return d;
+}
+
+static dc *insert_text(dc *d, int c) {
+  wd *w;
+
+  w = d->des;
+  ok_ptr(w);
+  its(c, w->c_loc_doc.x);
+  fiddle_window(d,right);
+  w->refresh++;
+  return d;
+}
+static dc *delete_char(dc *d) {
+  ok_ptr(d->des);
+  dcs(d->des->c_loc_doc.x);
+  d->des->refresh++;
+  return d;
+}
+
+static dc *backspace_char(dc *d) {
+  wd *w;
+
+  w = d->des;
+  if (w->c_loc_doc.x == 0) return d;
+  fiddle_window(d,left);
+  delete_char(d);
+  return d;
+}
+
+#line - "scr4d.c"
+#line - "scr4d.syn"
+static dc *show_mode(dc *d, int t) {
+  char *ms = "";
+
+  ok_ptr(d);
+  switch (t) {
+  case move_code:
+/*
+    if (d->move == NULL) {
+      PCB.reduction_token = scr_window_token;
+      beep(d);
+      break;
+    }
+*/
+    ms = "Move Window";
+    break;
+  case reduce:
+/*
+    if (d->resize == NULL) {
+      beep(d);
+      PCB.reduction_token = scr_window_token;
+      break;
+    }
+*/
+    ms = "Resize Window";
+    break;
+  }
+  flash_str_fill(mode_area.pos,ms,0,mode_area.size.x);
+  return d;
+}
+
+#line - "scr4d.c"
+#line - "scr4d.syn"
+cint ci();
+cint aci();
+cint sci();
+cint ulci();
+
+extern int start_keys[];
+extern dc *error_display;
+
+void log_error(void);
+
+void pop_up_code_segment(char *, char *);
+
+dc *resize_window_mode(dc *d) {
+  set_mode("Resize Window");
+  CHANGE_REDUCTION(resize_window);
+  return d;
+}
+
+dc *window_move(dc *d) {
+  set_mode("Move Window");
+  CHANGE_REDUCTION(move_window);
+  return d;
+}
+
+static dc *naughty(void) {
+  force_screen_real();
+  pop_up_code_segment("birb", "");
+  wkb();
+  return NULL;
+}
+
+void deactivate_window(dc *);
+
+static dc *activate_cmnd_menu(void) {
+  dc *new;
+  force_screen_real();
+  if (active_dc != NULL) {
+    if (active_dc != quick_ref_display) return active_dc;
+    deactivate_window(active_dc);
+  }
+  new = activate_window(cmnd_map_display);
+  if (nerrors) new = pop_up_window(error_display);
+  return new;
+}
+
+
+extern dc *search_key_window;
+
+
+static dc *edit_search(void) {
+  cint loc;
+  cint corner;
+  dc *d;
+  rect w;
+
+  d = active_dc;
+  loc = aci(d->act->c_loc_scr, ci(1,1));
+  deactivate_window(d);
+  w = place_rect(display_area, search_key_window->des->b_size,22);
+  corner = w.pos;
+  search_key_window->des->b_loc_scr = ulci(loc,corner);
+  search_key_window->des->b_size = w.size;
+  activate_window(search_key_window);
+  return active_dc;
+}
+
+static dc *init_search_window(void) {
+  ics();
+  search_flag++;
+  ok_ptr(search_key_window->des);
+  search_key_window->des->c_loc_doc.x = 0;
+  search_key_index = 0;
+  old_string = search_key;
+
+  return edit_search();
+}
+
+
+int do_key(int x) {
+  PCB.input_code = x;
+  scr();
+  if (PCB.exit_flag == AG_SYNTAX_ERROR_CODE) {
+    sbeep();
+    PCB.exit_flag = AG_RUNNING_CODE;
+  }
+  return (PCB.exit_flag == AG_RUNNING_CODE);
+}
+
+#line - "scr4d.c"
+
+#ifndef CONVERT_CASE
+#define CONVERT_CASE(c) (c)
+#endif
+#ifndef TAB_SPACING
+#define TAB_SPACING 8
+#endif
+
+#define ag_rp_1() (naughty())
+
+#define ag_rp_2() (check_expiration())
+
+#define ag_rp_3() (activate_cmnd_menu())
+
+#define ag_rp_4() (pop_up_window(cmnd_map_display))
+
+#define ag_rp_5() (pop_up_window(window_menu_display))
+
+#define ag_rp_6() (pop_up_window(quick_ref_display))
+
+#define ag_rp_7(w) (rcs(), search_flag--, quit_window(w))
+
+#define ag_rp_8(w) (check_expiration(),w)
+
+#define ag_rp_9(w) (check_expiration(),w)
+
+#define ag_rp_10(d) ((*d->enter)(d))
+
+#define ag_rp_11(n) (end_line_number_mode(n))
+
+#define ag_rp_12(n) (end_line_number_mode(n))
+
+#define ag_rp_13(n) (end_line_number_mode(n))
+
+#define ag_rp_14() (line_number_1())
+
+#define ag_rp_15(n, d) (line_number_2(n,d))
+
+#define ag_rp_16(n) (line_number_3(n))
+
+#define ag_rp_17(n) (line_number_3(n))
+
+#define ag_rp_18(w) (quit_window(w))
+
+#define ag_rp_19(w) (help_window(w))
+
+#define ag_rp_20() (pop_up_window(help_index))
+
+#define ag_rp_21(w) (key_assign(w,"Function Keys"))
+
+#define ag_rp_22(w) (key_assign(w,"Cursor Keys"))
+
+#define ag_rp_23(w) (prt(w))
+
+#define ag_rp_24(w, k) (cursor(w,k))
+
+#define ag_rp_25(w, k) (control(w,k))
+
+#define ag_rp_26(w) (search_forward(w))
+
+#define ag_rp_27(w) (search_reverse(w))
+
+#define ag_rp_28(w, c) (alpha_access(w,c))
+
+#define ag_rp_29(w, n) (reposition_cursor(w,n))
+
+#define ag_rp_30(w, n) (backup_cursor(w,n))
+
+#define ag_rp_31(w, n) (advance_cursor(w,n))
+
+#define ag_rp_32(w) (reset_position_window(w))
+
+#define ag_rp_33(w) (clone_window(w))
+
+#define ag_rp_34(w) (cycle_clone(w))
+
+#define ag_rp_35(w) (pop_up_aux_win_menu(w))
+
+#define ag_rp_36(w) (pop_up_aux_cmnd_menu(w))
+
+#define ag_rp_37(w) (open_windows(w))
+
+#define ag_rp_38(w) (previous_window(w))
+
+#define ag_rp_39(w) (bottom_window(w))
+
+#define ag_rp_40(w) (bury_window(w))
+
+#define ag_rp_41(sk) (save_search_key(sk))
+
+#define ag_rp_42(sk) (save_search_key(sk))
+
+#define ag_rp_43(sk) (save_search_key(sk))
+
+#define ag_rp_44(sk) (save_search_key(sk))
+
+#define ag_rp_45(sk) (quit_search(sk))
+
+#define ag_rp_46() (init_search_window())
+
+#define ag_rp_47(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_48(sk) (search_key_right(sk))
+
+#define ag_rp_49(sk, c) (insert_text(sk,c))
+
+#define ag_rp_50(sk) (backspace_char(sk))
+
+#define ag_rp_51(sk) (delete_char(sk))
+
+#define ag_rp_52(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_53(sk) (search_key_end(sk))
+
+#define ag_rp_54(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_55(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_56(d) (d)
+
+#define ag_rp_57(d) (chdir_s2(d))
+
+#define ag_rp_58() (edit_window)
+
+#define ag_rp_59(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_60(sk) (search_key_right(sk))
+
+#define ag_rp_61(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_62(sk) (search_key_end(sk))
+
+#define ag_rp_63(sk, c) (insert_text(sk,c))
+
+#define ag_rp_64(sk) (backspace_char(sk))
+
+#define ag_rp_65(sk) (delete_char(sk))
+
+#define ag_rp_66(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_67(sk, k) (fiddle_window(sk,k))
+
+#define ag_rp_68(sk) (clear_mode(sk))
+
+#define ag_rp_69(sk) (clear_mode(sk))
+
+#define ag_rp_70(sk) (clear_mode(sk))
+
+#define ag_rp_71(sk, k) (show_mode(sk,k))
+
+#define ag_rp_72(sk, k) (move(sk,k))
+
+#define ag_rp_73(sk, k) (show_mode(sk,k))
+
+#define ag_rp_74(sk, k) (resize(sk,k))
+
+#define ag_rp_75(sk, k) (show_mode(sk,k))
+
+#define ag_rp_76(sk, k) (move(sk,k))
+
+#define ag_rp_77(sk, k) (show_mode(sk,k))
+
+#define ag_rp_78(sk, k) (resize(sk,k))
+
+#define ag_rp_79(w, k) (show_mode(w,k))
+
+#define ag_rp_80(w, k) (move(w,k))
+
+#define ag_rp_81(w, k) (show_mode(w,k))
+
+#define ag_rp_82(w, k) (resize(w,k))
+
+
+#define READ_COUNTS 
+#define WRITE_COUNTS 
+#undef V
+#define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i]))
+#undef VS
+#define VS(i) (PCB).vs[(PCB).ssx + i]
+
+#ifndef GET_CONTEXT
+#define GET_CONTEXT CONTEXT = (PCB).input_context
+#endif
+
+typedef enum {
+  ag_action_1,
+  ag_action_2,
+  ag_action_3,
+  ag_action_4,
+  ag_action_5,
+  ag_action_6,
+  ag_action_7,
+  ag_action_8,
+  ag_action_9,
+  ag_action_10,
+  ag_action_11,
+  ag_action_12
+} ag_parser_action;
+
+
+#ifndef NULL_VALUE_INITIALIZER
+#define NULL_VALUE_INITIALIZER = { 0 }
+#endif
+
+static scr_vs_type const ag_null_value NULL_VALUE_INITIALIZER;
+
+static const unsigned char ag_rpx[] = {
+    0,  0,  0,  0,  1,  0,  0,  0,  2,  0,  0,  0,  0,  3,  4,  5,  6,  7,
+    8,  9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,  0,
+    0,  0,  0, 25, 26, 27, 28,  0, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
+   39, 40,  0, 41, 42,  0, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
+   55,  0, 56, 57, 58, 59, 60, 61, 62,  0, 63, 64, 65, 66, 67,  0,  0, 68,
+    0,  0, 69,  0,  0, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82
+};
+#define AG_TCV(x) (((int)(x) >= 0 && (int)(x) <= 388) ? ag_tcv[(x)] : 0)
+
+static const unsigned char ag_tcv[] = {
+    0,  0,  0,  0,  0,  0,  0,  0, 29,  0,  0,  0,  0, 21,  0,  0,  0,  0,
+    0,  0,  0,  0,  0, 86,  0,  0, 87, 19,  0,  0,  0,  0, 90, 90, 90, 90,
+   90, 90, 90, 90, 90, 90, 90, 89, 90, 88, 90, 90, 28, 28, 28, 28, 28, 28,
+   28, 28, 28, 28, 90, 90, 90, 90, 90, 18, 90, 90, 90, 90, 90, 90, 90, 90,
+   90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90,
+   90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90,
+   90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, 90,
+   90, 90,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0, 67,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 35,  0,  0,  0,  0,  0, 58,
+    0,  0,  0,  0,  0,  0, 27,  0,  0,  0,  0,  0,  0,  6,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0, 31, 77, 56, 53, 52, 51, 45, 50, 17,
+   11,  0,  0, 62, 57, 80,  0, 59,  0, 60,  0, 63, 55, 81,  0, 30, 33,  0,
+    0,  0,  0,  0,  0,  0,  0,  0, 34,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+   32, 79,  0,  0,  0,  0, 46, 49, 47, 48,  0, 64, 65, 83, 85, 82,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 84
+};
+
+#ifndef SYNTAX_ERROR
+#define SYNTAX_ERROR fprintf(stderr,"%s\n", (PCB).error_message)
+#endif
+
+#ifndef PARSER_STACK_OVERFLOW
+#define PARSER_STACK_OVERFLOW {fprintf(stderr, \
+  "\nParser stack overflow\n");}
+#endif
+
+#ifndef REDUCTION_TOKEN_ERROR
+#define REDUCTION_TOKEN_ERROR {fprintf(stderr, \
+  "\nReduction token error\n");}
+#endif
+
+
+static void near ag_prot(void) {
+  int ag_k;
+  ag_k = 128 - ++(PCB).btsx;
+  if (ag_k <= (PCB).ssx) {
+    (PCB).exit_flag = AG_STACK_ERROR_CODE;
+    PARSER_STACK_OVERFLOW;
+    return;
+  }
+  (PCB).bts[(PCB).btsx] = (PCB).sn;
+  (PCB).bts[ag_k] = (PCB).ssx;
+  (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx];
+  (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx];
+}
+
+static void near ag_undo(void) {
+  if ((PCB).drt == -1) return;
+  while ((PCB).btsx) {
+    int ag_k = 128 - (PCB).btsx;
+    (PCB).sn = (PCB).bts[(PCB).btsx--];
+    (PCB).ssx = (PCB).bts[ag_k];
+    (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k];
+    (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k];
+  }
+  (PCB).token_number = (scr_token_type) (PCB).drt;
+  (PCB).ssx = (PCB).dssx;
+  (PCB).sn = (PCB).dsn;
+  (PCB).drt = -1;
+}
+
+
+
+static const int ag_rtt[] = {
+   16,  7,  4,  0, 14, 66,  0
+};
+
+static const unsigned char ag_tstt[] = {
+58,27,11,6,0,1,2,3,4,7,8,9,10,12,13,16,20,37,38,39,71,72,73,74,75,76,
+90,89,88,81,80,79,77,65,64,63,62,60,59,57,56,55,53,30,29,28,21,19,18,6,0,78,
+90,89,88,81,80,79,77,65,64,63,62,60,59,57,56,55,53,30,29,28,21,19,18,6,0,78,
+90,89,88,87,86,85,84,83,82,81,80,79,77,65,64,63,62,60,59,58,57,56,55,53,52,
+  51,50,49,48,47,46,45,35,34,33,32,31,28,27,21,19,18,17,11,6,0,78,
+90,89,88,87,86,85,84,83,82,81,80,79,77,65,64,63,62,60,59,58,57,56,55,53,52,
+  51,50,49,48,47,46,45,35,34,33,32,31,28,27,21,19,18,17,11,6,0,78,
+90,89,88,79,77,65,64,56,53,30,29,28,21,19,18,6,0,
+90,89,88,79,77,65,64,63,62,60,59,30,29,28,18,6,0,
+30,29,28,6,0,
+90,89,88,79,77,65,64,30,29,28,18,6,0,
+90,89,88,87,86,85,84,83,82,79,77,65,64,58,56,53,52,51,50,49,48,47,46,45,35,
+  34,33,32,31,28,27,21,19,18,17,11,6,0,40,
+90,89,88,87,86,85,84,83,82,81,80,79,77,65,64,63,62,60,59,58,57,56,55,53,52,
+  51,50,49,48,47,46,45,35,34,33,32,31,28,27,21,19,18,17,11,6,0,36,40,78,
+67,0,5,14,15,66,68,69,70,
+90,89,88,79,77,58,56,53,52,51,50,49,48,47,46,45,35,34,33,32,31,28,27,21,18,
+  17,11,6,0,3,8,9,12,13,22,23,25,41,42,44,71,72,73,
+90,89,88,81,80,79,77,65,64,63,62,60,59,57,55,30,29,28,19,18,6,0,78,
+90,89,88,81,80,79,77,65,64,63,62,60,59,57,55,30,29,28,19,18,6,0,78,
+90,89,88,79,77,65,64,30,29,28,19,18,6,0,
+90,89,88,79,77,65,64,63,62,60,59,30,29,28,21,19,18,6,0,
+90,89,88,79,77,65,64,30,29,28,18,6,0,
+90,89,88,79,77,65,64,63,62,60,59,57,56,55,53,30,29,28,21,19,18,6,0,
+89,88,57,55,30,29,28,21,19,6,0,
+90,89,88,79,77,65,64,56,53,30,29,28,21,18,6,0,
+  0
+};
+
+
+static unsigned const char ag_astt[507] = {
+  2,2,2,2,7,0,1,2,1,0,1,1,2,1,1,1,1,1,1,1,1,1,2,1,1,2,5,5,5,10,10,5,5,5,5,10,
+  10,10,10,10,5,10,5,5,5,5,5,5,5,5,7,2,5,5,5,10,10,5,5,5,5,10,10,10,10,10,5,
+  10,5,5,5,5,5,5,5,5,7,2,5,5,5,5,5,5,5,5,5,10,10,5,5,5,5,10,10,10,10,5,10,5,
+  10,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,2,5,5,5,5,5,5,5,5,5,10,10,
+  5,5,5,5,10,10,10,10,5,10,5,10,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
+  7,2,5,5,5,5,5,5,5,5,5,5,5,5,5,3,5,5,7,5,5,5,5,5,5,5,10,10,10,10,5,5,5,5,5,
+  7,10,10,10,3,7,2,2,2,2,2,2,2,2,2,2,2,3,7,4,4,4,2,2,2,2,2,2,4,4,2,2,4,4,4,4,
+  4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,4,4,4,4,7,2,4,4,4,10,10,10,10,10,10,10,10,
+  4,4,10,10,10,10,10,10,4,10,4,10,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,10,4,4,4,
+  4,7,2,2,2,2,7,1,1,1,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+  2,2,2,2,3,7,3,1,1,1,1,2,2,2,2,2,3,1,1,2,5,5,5,10,10,5,5,5,5,10,10,10,10,10,
+  10,5,5,5,5,5,5,7,2,5,5,5,10,10,5,5,5,5,10,10,10,10,10,10,5,5,5,5,5,5,7,2,5,
+  5,5,5,5,5,5,5,5,5,3,5,5,7,5,5,5,5,5,5,5,10,10,10,10,5,5,5,2,2,5,5,7,2,2,2,
+  2,2,2,2,2,2,2,2,3,7,5,5,5,5,5,5,5,10,10,10,10,2,5,2,5,5,5,5,5,2,5,5,7,2,2,
+  2,2,10,10,10,2,2,3,7,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,7,11
+};
+
+
+static const unsigned char ag_pstt[] = {
+63,24,8,4,0,0,12,4,11,0,8,7,13,6,5,10,9,10,10,10,2,1,92,4,3,95,
+91,91,91,97,97,91,91,91,91,97,97,97,97,97,91,97,91,91,91,91,91,91,91,91,1,
+  97,
+90,90,90,99,99,90,90,90,90,99,99,99,99,99,90,99,90,90,90,90,90,90,90,90,2,
+  99,
+94,94,94,94,94,94,94,94,94,105,105,94,94,94,94,105,105,105,105,94,105,94,
+  105,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,94,3,
+  105,
+93,93,93,93,93,93,93,93,93,107,107,93,93,93,93,107,107,107,107,93,107,93,
+  107,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,93,4,
+  107,
+10,10,10,10,10,10,10,10,10,10,10,10,10,73,10,10,5,
+9,9,9,9,9,9,9,70,69,65,64,9,9,9,9,9,6,
+27,26,25,7,7,
+66,66,66,98,96,72,71,68,67,66,66,6,8,
+19,19,19,39,39,39,39,39,39,19,19,39,39,19,19,19,19,19,19,19,19,19,19,19,19,
+  19,19,19,19,19,19,19,38,19,19,19,19,9,39,
+18,18,18,34,34,34,34,34,34,34,34,18,18,34,34,34,34,34,34,18,34,18,34,18,18,
+  18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,28,18,18,18,18,10,34,34,34,
+76,11,17,16,15,74,14,13,89,
+42,42,42,106,104,63,41,40,55,54,53,52,51,50,49,48,33,32,31,30,29,42,24,20,
+  16,15,14,1,12,1,20,19,18,5,44,45,46,40,41,43,2,1,92,
+88,88,88,101,101,88,88,88,88,101,101,101,101,101,101,88,88,88,88,88,88,13,
+  101,
+87,87,87,103,103,87,87,87,87,103,103,103,103,103,103,87,87,87,87,87,87,14,
+  103,
+12,12,12,12,12,12,12,12,12,12,81,12,12,15,
+11,11,11,11,11,11,11,80,79,78,77,11,11,11,75,17,11,11,16,
+82,82,82,102,100,86,85,84,83,82,82,2,17,
+9,9,9,9,9,9,9,70,69,65,64,61,9,58,9,9,9,9,9,62,9,9,18,
+23,22,22,23,27,26,25,21,47,7,19,
+66,66,66,98,96,72,71,60,57,68,67,66,57,66,6,20,
+  0
+};
+
+
+static const unsigned short ag_sbt[] = {
+     0,  26,  52,  78, 125, 172, 189, 206, 211, 224, 263, 312, 321, 364,
+   387, 410, 424, 443, 456, 479, 490, 506
+};
+
+
+static const unsigned short ag_sbe[] = {
+     4,  50,  76, 123, 170, 188, 205, 210, 223, 261, 308, 313, 349, 385,
+   408, 423, 442, 455, 478, 489, 505, 506
+};
+
+
+static const unsigned char ag_fl[] = {
+  1,2,3,1,1,1,2,2,1,1,1,1,1,1,2,2,2,3,1,1,2,2,2,2,1,2,2,2,2,2,2,2,2,2,2,
+  1,1,1,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,1,2,2,1,2,2,2,1,2,2,2,2,2,2,
+  2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,
+  2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+};
+
+static const unsigned char ag_ptt[] = {
+    0,  1,  1,  1,  1,  3,  3,  3, 10,  8,  8,  5,  5, 16, 16, 16, 16, 16,
+    2,  2, 16, 22, 23, 25,  9,  9,  9,  9, 16, 16, 16, 16, 16, 16, 16, 16,
+   16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 37,
+   38, 39, 41, 41, 41, 42, 42, 42, 44, 12, 12, 12, 12, 12, 12, 12, 12, 12,
+   12, 12, 16, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 70, 70, 15,
+   73, 73, 13, 76, 76, 20, 72, 72, 71, 71, 69, 69, 68, 68, 75, 75, 74, 74,
+   78, 78, 78, 78, 78, 78, 78, 78, 36, 36, 40, 40, 40, 40, 40, 40, 40, 40
+};
+
+static const unsigned char  *ag_valid(int ag_k) {
+  const unsigned char  *ag_tp = &ag_tstt[ag_sbt[(PCB).sn+1]];
+  while (*--ag_tp != (unsigned char) ag_k) if (*ag_tp == 0) return NULL;
+  return ag_tp;
+}
+
+int scr_change_reduction(scr_token_type ag_k) {
+  if (!ag_valid(ag_k)) return 0;
+  (PCB).reduction_token = ag_k;
+  return 1;
+}
+
+static void near ag_default(const  int *ag_tp) {
+  (PCB).ag_dsn = (PCB).sn;
+  (PCB).ag_dtl = ag_tp;
+  while (!ag_valid((scr_token_type) *ag_tp)) ag_tp++;
+  (PCB).reduction_token = (scr_token_type) *ag_tp;
+}
+
+
+
+static void near ag_ra(void)
+{
+  switch(ag_rpx[(PCB).ag_ap]) {
+    case 1: ag_rp_1(); break;
+    case 2: V(0,(dc * *)) = ag_rp_2(); break;
+    case 3: V(0,(dc * *)) = ag_rp_3(); break;
+    case 4: V(0,(dc * *)) = ag_rp_4(); break;
+    case 5: V(0,(dc * *)) = ag_rp_5(); break;
+    case 6: V(0,(dc * *)) = ag_rp_6(); break;
+    case 7: V(0,(dc * *)) = ag_rp_7(V(1,(dc * *))); break;
+    case 8: V(0,(dc * *)) = ag_rp_8(V(0,(dc * *))); break;
+    case 9: V(0,(dc * *)) = ag_rp_9(V(0,(dc * *))); break;
+    case 10: ag_default(&ag_rtt[0]); V(0,(dc * *)) = ag_rp_10(V(0,(dc * *))); break;
+    case 11: V(0,(int *)) = ag_rp_11(V(0,(int *))); break;
+    case 12: V(0,(int *)) = ag_rp_12(V(0,(int *))); break;
+    case 13: V(0,(int *)) = ag_rp_13(V(0,(int *))); break;
+    case 14: V(0,(int *)) = ag_rp_14(); break;
+    case 15: V(0,(int *)) = ag_rp_15(V(0,(int *)), V(1,(int *))); break;
+    case 16: V(0,(int *)) = ag_rp_16(V(0,(int *))); break;
+    case 17: V(0,(int *)) = ag_rp_17(V(0,(int *))); break;
+    case 18: V(0,(dc * *)) = ag_rp_18(V(0,(dc * *))); break;
+    case 19: V(0,(dc * *)) = ag_rp_19(V(0,(dc * *))); break;
+    case 20: V(0,(dc * *)) = ag_rp_20(); break;
+    case 21: V(0,(dc * *)) = ag_rp_21(V(0,(dc * *))); break;
+    case 22: V(0,(dc * *)) = ag_rp_22(V(0,(dc * *))); break;
+    case 23: V(0,(dc * *)) = ag_rp_23(V(0,(dc * *))); break;
+    case 24: V(0,(dc * *)) = ag_rp_24(V(0,(dc * *)), V(1,(int *))); break;
+    case 25: V(0,(dc * *)) = ag_rp_25(V(0,(dc * *)), V(1,(int *))); break;
+    case 26: V(0,(dc * *)) = ag_rp_26(V(0,(dc * *))); break;
+    case 27: V(0,(dc * *)) = ag_rp_27(V(0,(dc * *))); break;
+    case 28: V(0,(dc * *)) = ag_rp_28(V(0,(dc * *)), V(1,(int *))); break;
+    case 29: V(0,(dc * *)) = ag_rp_29(V(0,(dc * *)), V(1,(int *))); break;
+    case 30: V(0,(dc * *)) = ag_rp_30(V(0,(dc * *)), V(1,(int *))); break;
+    case 31: V(0,(dc * *)) = ag_rp_31(V(0,(dc * *)), V(1,(int *))); break;
+    case 32: V(0,(dc * *)) = ag_rp_32(V(0,(dc * *))); break;
+    case 33: V(0,(dc * *)) = ag_rp_33(V(0,(dc * *))); break;
+    case 34: V(0,(dc * *)) = ag_rp_34(V(0,(dc * *))); break;
+    case 35: V(0,(dc * *)) = ag_rp_35(V(0,(dc * *))); break;
+    case 36: V(0,(dc * *)) = ag_rp_36(V(0,(dc * *))); break;
+    case 37: V(0,(dc * *)) = ag_rp_37(V(0,(dc * *))); break;
+    case 38: V(0,(dc * *)) = ag_rp_38(V(0,(dc * *))); break;
+    case 39: V(0,(dc * *)) = ag_rp_39(V(0,(dc * *))); break;
+    case 40: V(0,(dc * *)) = ag_rp_40(V(0,(dc * *))); break;
+    case 41: V(0,(dc * *)) = ag_rp_41(V(0,(dc * *))); break;
+    case 42: V(0,(dc * *)) = ag_rp_42(V(0,(dc * *))); break;
+    case 43: V(0,(dc * *)) = ag_rp_43(V(0,(dc * *))); break;
+    case 44: V(0,(dc * *)) = ag_rp_44(V(0,(dc * *))); break;
+    case 45: V(0,(dc * *)) = ag_rp_45(V(0,(dc * *))); break;
+    case 46: V(0,(dc * *)) = ag_rp_46(); break;
+    case 47: V(0,(dc * *)) = ag_rp_47(V(0,(dc * *)), V(1,(int *))); break;
+    case 48: V(0,(dc * *)) = ag_rp_48(V(0,(dc * *))); break;
+    case 49: V(0,(dc * *)) = ag_rp_49(V(0,(dc * *)), V(1,(int *))); break;
+    case 50: V(0,(dc * *)) = ag_rp_50(V(0,(dc * *))); break;
+    case 51: V(0,(dc * *)) = ag_rp_51(V(0,(dc * *))); break;
+    case 52: V(0,(dc * *)) = ag_rp_52(V(0,(dc * *)), V(1,(int *))); break;
+    case 53: V(0,(dc * *)) = ag_rp_53(V(0,(dc * *))); break;
+    case 54: V(0,(dc * *)) = ag_rp_54(V(0,(dc * *)), V(1,(int *))); break;
+    case 55: V(0,(dc * *)) = ag_rp_55(V(0,(dc * *)), V(1,(int *))); break;
+    case 56: V(0,(dc * *)) = ag_rp_56(V(1,(dc * *))); break;
+    case 57: ag_default(&ag_rtt[4]); V(0,(dc * *)) = ag_rp_57(V(0,(dc * *))); break;
+    case 58: V(0,(dc * *)) = ag_rp_58(); break;
+    case 59: V(0,(dc * *)) = ag_rp_59(V(0,(dc * *)), V(1,(int *))); break;
+    case 60: V(0,(dc * *)) = ag_rp_60(V(0,(dc * *))); break;
+    case 61: V(0,(dc * *)) = ag_rp_61(V(0,(dc * *)), V(1,(int *))); break;
+    case 62: V(0,(dc * *)) = ag_rp_62(V(0,(dc * *))); break;
+    case 63: V(0,(dc * *)) = ag_rp_63(V(0,(dc * *)), V(1,(int *))); break;
+    case 64: V(0,(dc * *)) = ag_rp_64(V(0,(dc * *))); break;
+    case 65: V(0,(dc * *)) = ag_rp_65(V(0,(dc * *))); break;
+    case 66: V(0,(dc * *)) = ag_rp_66(V(0,(dc * *)), V(1,(int *))); break;
+    case 67: V(0,(dc * *)) = ag_rp_67(V(0,(dc * *)), V(1,(int *))); break;
+    case 68: V(0,(dc * *)) = ag_rp_68(V(0,(dc * *))); break;
+    case 69: V(0,(dc * *)) = ag_rp_69(V(0,(dc * *))); break;
+    case 70: V(0,(dc * *)) = ag_rp_70(V(0,(dc * *))); break;
+    case 71: V(0,(dc * *)) = ag_rp_71(V(0,(dc * *)), V(1,(int *))); break;
+    case 72: V(0,(dc * *)) = ag_rp_72(V(0,(dc * *)), V(1,(int *))); break;
+    case 73: V(0,(dc * *)) = ag_rp_73(V(0,(dc * *)), V(1,(int *))); break;
+    case 74: V(0,(dc * *)) = ag_rp_74(V(0,(dc * *)), V(1,(int *))); break;
+    case 75: V(0,(dc * *)) = ag_rp_75(V(0,(dc * *)), V(1,(int *))); break;
+    case 76: V(0,(dc * *)) = ag_rp_76(V(0,(dc * *)), V(1,(int *))); break;
+    case 77: V(0,(dc * *)) = ag_rp_77(V(0,(dc * *)), V(1,(int *))); break;
+    case 78: V(0,(dc * *)) = ag_rp_78(V(0,(dc * *)), V(1,(int *))); break;
+    case 79: V(0,(dc * *)) = ag_rp_79(V(0,(dc * *)), V(1,(int *))); break;
+    case 80: V(0,(dc * *)) = ag_rp_80(V(0,(dc * *)), V(1,(int *))); break;
+    case 81: V(0,(dc * *)) = ag_rp_81(V(0,(dc * *)), V(1,(int *))); break;
+    case 82: V(0,(dc * *)) = ag_rp_82(V(0,(dc * *)), V(1,(int *))); break;
+  }
+}
+
+static int near ag_action_1_r_proc(void);
+static int near ag_action_2_r_proc(void);
+static int near ag_action_3_r_proc(void);
+static int near ag_action_4_r_proc(void);
+static int near ag_action_1_s_proc(void);
+static int near ag_action_3_s_proc(void);
+static int near ag_action_1_proc(void);
+static int near ag_action_2_proc(void);
+static int near ag_action_3_proc(void);
+static int near ag_action_4_proc(void);
+static int near ag_action_5_proc(void);
+static int near ag_action_6_proc(void);
+static int near ag_action_7_proc(void);
+static int near ag_action_8_proc(void);
+static int near ag_action_9_proc(void);
+static int near ag_action_10_proc(void);
+static int near ag_action_11_proc(void);
+static int near ag_action_8_proc(void);
+
+
+static int (near *const  ag_r_procs_scan[])(void) = {
+  ag_action_1_r_proc,
+  ag_action_2_r_proc,
+  ag_action_3_r_proc,
+  ag_action_4_r_proc
+};
+
+static int (near *const  ag_s_procs_scan[])(void) = {
+  ag_action_1_s_proc,
+  ag_action_2_r_proc,
+  ag_action_3_s_proc,
+  ag_action_4_r_proc
+};
+
+static int (near *const  ag_gt_procs_scan[])(void) = {
+  ag_action_1_proc,
+  ag_action_2_proc,
+  ag_action_3_proc,
+  ag_action_4_proc,
+  ag_action_5_proc,
+  ag_action_6_proc,
+  ag_action_7_proc,
+  ag_action_8_proc,
+  ag_action_9_proc,
+  ag_action_10_proc,
+  ag_action_11_proc,
+  ag_action_8_proc
+};
+
+
+static int near ag_action_10_proc(void) {
+  (PCB).btsx = 0, (PCB).drt = -1;
+  return 0;
+}
+
+static int near ag_action_11_proc(void) {
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (*(int *) &(PCB).vs[(PCB).ssx]) = (PCB).input_code;
+  (PCB).ssx--;
+  ag_ra();
+  (PCB).ssx++;
+  return 0;
+}
+
+static int near ag_action_3_r_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int near ag_action_3_s_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int near ag_action_4_r_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  return 1;
+}
+
+static int near ag_action_2_proc(void) {
+  (PCB).btsx = 0, (PCB).drt = -1;
+  if ((PCB).ssx >= 128) {
+    (PCB).exit_flag = AG_STACK_ERROR_CODE;
+    PARSER_STACK_OVERFLOW;
+  }
+  (*(int *) &(PCB).vs[(PCB).ssx]) = (PCB).input_code;
+  (PCB).ss[(PCB).ssx] = (PCB).sn;
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  return 0;
+}
+
+static int near ag_action_9_proc(void) {
+  if ((PCB).drt == -1) {
+    (PCB).drt=(PCB).token_number;
+    (PCB).dssx=(PCB).ssx;
+    (PCB).dsn=(PCB).sn;
+  }
+  ag_prot();
+  (PCB).ss[(PCB).ssx] = (PCB).sn;
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int near ag_action_2_r_proc(void) {
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  return 0;
+}
+
+static int near ag_action_7_proc(void) {
+  --(PCB).ssx;
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int near ag_action_1_proc(void) {
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int near ag_action_1_r_proc(void) {
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int near ag_action_1_s_proc(void) {
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int near ag_action_4_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (*(int *) &(PCB).vs[(PCB).ssx]) = (PCB).input_code;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else (PCB).ss[(PCB).ssx] = (PCB).sn;
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return 0;
+}
+
+static int near ag_action_3_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (*(int *) &(PCB).vs[(PCB).ssx]) = (PCB).input_code;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else (PCB).ss[(PCB).ssx] = (PCB).sn;
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return 0;
+}
+
+static int near ag_action_8_proc(void) {
+  ag_undo();
+  (PCB).exit_flag = AG_SYNTAX_ERROR_CODE;
+  SYNTAX_ERROR;
+  
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int near ag_action_5_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else {
+    (PCB).ss[(PCB).ssx] = (PCB).sn;
+  }
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int near ag_action_6_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap];
+  (PCB).reduction_token = (scr_token_type) ag_ptt[(PCB).ag_ap];
+  if ((PCB).drt == -1) {
+    (PCB).drt=(PCB).token_number;
+    (PCB).dssx=(PCB).ssx;
+    (PCB).dsn=(PCB).sn;
+  }
+  if (ag_sd) {
+    (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  }
+  else {
+    ag_prot();
+    (PCB).vs[(PCB).ssx] = ag_null_value;
+    (PCB).ss[(PCB).ssx] = (PCB).sn;
+  }
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+
+void init_scr(void) {
+  unsigned ag_t1;
+  ag_t1 = 0;
+  (PCB).error_message = "Syntax Error";
+  (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0;
+  (PCB).exit_flag = AG_RUNNING_CODE;
+  (PCB).btsx = 0, (PCB).drt = -1;
+  while (ag_tstt[ag_t1] == 0) {
+    (PCB).ag_ap = ag_pstt[ag_t1];
+    (ag_gt_procs_scan[ag_astt[ag_t1]])();
+    ag_t1 = ag_sbt[(PCB).sn];
+  }
+}
+
+void scr(void) {
+  (PCB).token_number = (scr_token_type) AG_TCV((PCB).input_code);
+  while (1) {
+    unsigned ag_t1 = ag_sbt[(PCB).sn];
+    unsigned ag_t2 = ag_sbe[(PCB).sn] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number)
+        ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number)
+      ag_t1 = ag_sbe[(PCB).sn];
+    (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_gt_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+}
+
+