.
        .
        .
GOOD:   SETB P0.1      ;Green On 
        SJMP EXIT 

REDLED: SETB P0.0      ;Red On 

EXIT:   CLR P0.1       ;Green Off 
        CLR P0.0       ;Red Off 
        JMP MAIN