LÍDER CONCURSOS DEL FORO
Fecha de ingreso: 19/oct/2003
Mensajes: 52
|
Un testeo muy instructivo, ayuda mucho a mejorar la siguiente vesion del jungle
La solucion transitoria interponiendo el diseqc 4x1 es muy curiosa
Prueba cambiando el cuerpo del "basic\zap_con1.cpi" con esto:
Código:
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);
__________________ [B]Cuando los hechos resetean las palabras..[/B]
|