Problems in RB0 PIn Interrupt

hi there,

I am trying to hardware implement with the PIC2520 MCU/External osc fr. 20mhz with the code below for remote control triac-dimmer and ON/OFF control-relay, the all relays is being control successfully from the remote with specified key BUT when its come to about the operation triac dimmer, the light-Bulb connected to triac 

1) Start flickering when power is ON, which sould be remain 'speed' variable=5; at OFF conditon, as getting from 'delay loop' about 2 msec as tested in proteus, ie, 2*5=10msec delay on power up the system.>>>How do to stop the flickering ??

2) After power up and remain on flickering state as above when any botton including botton used for realays if pressed: the bulb getting OFF and then ON on pressing any botton, >>> what  is to be edit in programme.

PROGRAMME::::::::::::::::::::

void delay(int time)  
{
    for(int i=0;i<time;i++)
        for(int j=0;j<800;j++);
}

#define tric PORTBbits.RB1
#define ir PORTBbits.RB2

#define relay1 PORTCbits.RC2
#define relay2 PORTCbits.RC3
 

int cmd=0;
int speed=5;
unsigned int dat[100];
unsigned int i=0;
unsigned int j=0;

void timer(void)        
{
   T0PS0=0; 
   T0PS1=0;
   T0PS2=0;
   PSA=0;      //Timer Clock Source is from Prescaler
   T0CS=0;     //Prescaler gets clock from FCPU (5MHz)
   T08BIT=0;   //16 BIT MODE
   TMR0IE=1;   //Enable TIMER0 Interrupt
   PEIE=1;     //Enable Peripheral Interrupt
   GIE=1;      //Enable INTs globally
   TMR0ON=1;      //Now start the timer!
}

void main() 
{
   ADCON1=0b00001111;
   TRISB1=0; //triac
   TRISB2=1; //ir
   TRISC=0x00;
    relay1=0;
    relay2=0;
    ir=0; 
    tric=0; //at RB1 PIN
    timer(); 
    
   
    
    TRISB0=1;
    INTEDG0 = 0; // Interrupt on falling edge
    INT0IE = 1; //0; //1; // Enable the INT0 external interrupt (RB0) 
    INT0IF = 0; // Clears INT0 External Interrupt Flag bit
    PEIE=1;     //Enable Peripheral Interrupt
    GIE=1;      //Enable INTs globally

    
   while(1)
   {   
       while(ir == 1);
       INT0IE = 0;
       while(ir == 0);
       TMR0=0;
       while(ir == 1);
       i++;
       dat[i]=TMR0;
       
       if(dat[1] > 5000 && dat[1]<12000)
        {
        }
       else
        {
        i=0;
        INT0IE = 1;  
        }

       
       
       
       if(i>=33)
        {
         GIE=0;
         delay(50);
         cmd=0;
         for(j=26;j<34;j++)
            {
              if(dat[j]>1000 && dat[j]<2000)
             cmd<<=1;

              else if(dat[j]>3500 && dat[j]<4500)
            {
             cmd|=0x01;
             cmd<<=1;
            }
            }
        
        
         cmd>>=1;
        
         //------------------------------------------------------------------------
         if(cmd == 0xAF)
            {
            
             relay1^=1;      

            }
         
         else if(cmd == 0x27)
            {
             relay2^=1; 

            }
         
         else if(cmd == 0x07)
            {
             relay3^=1;

            }
         
         else if(cmd == 0xCF)
            {
             relay4^=1; 

            }
    
         else if(cmd == 0x5f)
            {
             speed++;
             if(speed>5)
                {
                 speed=5; 
                }
            }
         
         else if(cmd == 0x9f)
            {
             speed--;
             if(speed<0)
                {
                 speed=0; 
                }
            }
         
         
         
        
         i=0;
         INT0IE = 1; 
         GIE=1;
         
         } // CLOSE if(i>=33)
       
     } //CLOSE while(1)
    
 } //CLOSE void main(void)

//------------------------------------------------------------------------------

void interrupt isr()
{
    if(INT0IF)
    {
        
        //INT0IF=0;
        delay(speed);
        tric=1;
        __delay_us(40); //in 100 at sw power on more flickering bulb, in 50 less flick , 10 even not start
        //for(int t=0;t<100;t++);
        tric=0;
        INT0IF=0;
    }
    
   if(TMR0IF)  //Check if it is TMR0 Overflow ISR   
   {
      TMR0IF=0;
   }
    
}

:::::::::::::::::::::::::::::::::::::::::::::::::::::::

In Hardware site, the zero-xing is used with 4n35 opto and triac is with moc3021.

Pl suggeset what is getting wrong with the code, is it INT0IE/GIE is at misplaced for which the triac behaving like above point no 2.

tnks..