Public  basic
Public  global
Public  table
Public  antena
	basic.NP = 0x0;
	Device_Call(basic.CL, $dev_service, $SERVICE_STOP, global.NU, global.NU, &basic.REP, &basic.ER);
	Event_UnSet($EV_TUNING_SET, basic.CL);
	Event_Clear(-1, $EV_TUNING_SET, basic.CL, -1, -1, 0x0, &basic.J, &basic.K, &basic.L, &basic.M);
	if((table.TP != basic.TP)) {
		Flash_File_Info("TPT", "TPT", &global.TP, &basic.J, &basic.ER);
		Transponder_Info_Read(global.TP, table.TP, &table.N, &table.TS, &global.ELG, basic.BUFFER_E, &basic.ER);
		if((peeks(basic.BUFFER_E , 0x4) != antena.SRANT)) {
			antena.SRANT = peeks(basic.BUFFER_E , 0x4);
			Device_Alloc_Buffer(basic.CL, 0x404, $LOCK_OFF, &basic.BUFTUN_E, &basic.ER);
			Device_Alloc_Buffer(basic.CL, 0x404, $LOCK_OFF, &basic.BUFTUN_R, &basic.ER);
			Flash_File_Read("TSR", "TSR", basic.BUFTUN_E, 0x404, &basic.ER);
			pokei(basic.BUFTUN_E, 0x4, antena.SRANT);
			Flash_File_Write("TSR", "TSR", basic.BUFTUN_E, 0x404, &basic.ER);
			Device_Call(basic.CL, $dev_tuner, $TUNER_SET_SYMBOL, basic.BUFTUN_E, basic.BUFTUN_R, &basic.REP, &basic.ER);
			Device_Free_Buffer(basic.CL, basic.BUFTUN_E, &basic.ER);
			Device_Free_Buffer(basic.CL, basic.BUFTUN_R, &basic.ER);
		}
		basic.BUFFER_E[0x4] = 0x0 ;
		basic.BUFFER_E[0x5] = peek(basic.BUFFER_E,0xB) ;
		basic.BUFFER_E[0xB] = peek(global.ANTENA,((global.ELG * 0x20) + 0xE)) ;
		Copy_I2Mem(basic.BUFFER_E, 0x8, peek(global.ANTENA,((global.ELG * 0x20) + 0x16)), 0x1);
		Copy_I2Mem(basic.BUFFER_E, 0x9, (table.F & 0x8), 0x1);
		Device_Io(basic.CL, $dev_tuner, $TUNER_TUNING_SET, $EV_TUNING_SET, $Prior_04, basic.BUFFER_E, basic.REC_T, &basic.REP, &basic.ER);
		basic.TP = -1;
		if(basic.ER) {
			basic.NEW_C = -1;
			Set_To($CLOCK, basic.TBD_D, $Ev_Timer, $code_03EB, &basic.TBD_T);
			return;
		}
		if((global.DISEQC == 0x3)) {
			antena.MOTOR = peek(global.ANTENA,((global.ELG * 0x20) + 0xF));
			if((antena.MOTOR && (antena.MOTOR != antena.POSANT))) {
				NullSubDSX7071_138(0x60, 0x0);
				NullSubDSX7071_138(0x60, 0x0);
				NullSubDSX7071_138(0x6B, antena.MOTOR);
				antena.POSANT = antena.MOTOR;
				basic.PM_AFINA = 0x0;
				Wait_Event($ev_0000, $code_none, (0x708 - (0x384 * global.MOT2)), &antena.ER);
			}
		}
		Copy_Mem2Text(global.ANTENA, (global.ELG * 0x20), &antena.SATNAME, 0xC);
	}
	Event_Set("basic:zap_con2", $EV_TUNING_SET, basic.CL);
	Event_Send($EV_TUNING_SET, basic.CL, 0x0, 0x0);