int store_limits(
STREAM *str,
TEXT_RLD *tr)
{
change_dot(tr, 4);
list_word(str, DOT, 0, 2, "");
list_word(str, DOT + 2, 0, 2, "");
return text_limits(tr, &DOT);
}
static int store_displaced_word(
STREAM *str,
TEXT_RLD *tr,
int size,
unsigned word)
{
change_dot(tr, size);
list_word(str, DOT, word, size, "'");
return text_displaced_word(tr, &DOT, size, word);
}
static int store_global_displaced_offset_word(
STREAM *str,
TEXT_RLD *tr,
int size,
unsigned word,
char *global)
{
change_dot(tr, size);
list_word(str, DOT, word, size, "G");
return text_global_displaced_offset_word(tr, &DOT, size, word, global);
}
static int store_psect_offset_word(
STREAM *str,
TEXT_RLD *tr,
int size,
unsigned word,
char *name)
{
change_dot(tr, size);
list_word(str, DOT, word, size, "'");
return text_psect_offset_word(tr, &DOT, size, word, name);
}
void press_btnLEFT()
{
switch(work)
{
case MAIN_MENU:change_main_menu_point(-1, 0); break;
case BOOK_MENU:
case MUSIC_MENU:
case IMAGE_MENU:
case GAME_MENU:
case FILE_MENU:
change_file_list_point(-9); break;
case BOOK_SHOW:last_book(book_name); break;
case BOOK_CONFIG:if(in_pallet)
{
if(digitalRead(btnSELECT) == LOW)
change_temp_rgb(temp_point, book_config_point, -10);
else
change_temp_rgb(temp_point, book_config_point, -1);
}
else
{
switch(book_config_point)
{
case 2: change_dot(-1); break;
case 3: change_offset(-1); break;
}
}
break;
case MUSIC_PLAY:change_next_music(-1); break;
case IMAGE_SHOW:switch(image_point)
{
case 0: change_image_mode(-1); break;
case 1: if(digitalRead(btnSELECT) == LOW)
change_image_left(-10);
else
change_image_left(-1);
break;
case 2: if(digitalRead(btnSELECT) == LOW)
change_image_top(-10);
else
change_image_top(-1);
break;
}
break;
case GAME_CLEAR: choose_no_clear(); break;
case FILE_DELETE: choose_no(); break;
case ABOUT_MENU: choose_help(); break;
}
}
static void store_complex_displaced(
STREAM *refstr,
TEXT_RLD *tr,
int size,
EX_TREE *value)
{
TEXT_COMPLEX tx;
change_dot(tr, size);
implicit_gbl(value); /* Turn undefined symbols into globals */
text_complex_begin(&tx);
if (!complex_tree(&tx, value)) {
report(refstr, "Invalid expression\n");
store_word(refstr, tr, size, 0);
} else {
list_word(refstr, DOT, 0, size, "C");
text_complex_commit_displaced(tr, &DOT, size, &tx, 0);
}
}
static void store_complex(
STREAM *refstr,
TEXT_RLD *tr,
int size,
EX_TREE *value)
{
TEXT_COMPLEX tx;
change_dot(tr, size); /* About to store - update DOT */
implicit_gbl(value); /* Turn undefined symbols into globals */
text_complex_begin(&tx); /* Open complex expression */
if (!complex_tree(&tx, value)) { /* Translate */
report(refstr, "Invalid expression\n");
store_word(refstr, tr, size, 0);
} else {
list_word(refstr, DOT, 0, size, "C");
text_complex_commit(tr, &DOT, size, &tx, 0);
}
}
