'****************************************************************

'*  Name    : UNTITLED.BAS                                      *

'*  Author  : [select VIEW...EDITOR OPTIONS]                    *

'*  Notice  : Copyright (c) 2022 [select VIEW...EDITOR OPTIONS] *

'*          : All Rights Reserved                               *

'*  Date    : 17/02/2022                                        *

'*  Version : 1.0                                               *

'*  Notes   :                                                   *

'*          :                                                   *

'****************************************************************

Define OSC 4

'**CONFIGURACION DE PUERTOS**

ROJO1 VAR PORTB.0 : AMBAR1 VAR PORTB.1 : VERDE1 VAR PORTB.2

ROJO2 VAR PORTB.5 : AMBAR2 VAR PORTB.4 : VERDE2 VAR PORTB.3

'*ESTADOS INICIALES**

LOW ROJO1 : LOW AMBAR1 : LOW VERDE1

LOW ROJO2 : LOW AMBAR2 : LOW VERDE2

'**PROGRAMA PRINCIPAL**

SEMAFORO:

    HIGH ROJO1        'ACTIVA LED ROJO1

    HIGH VERDE2

    PAUSE 22000       'ESPERA 25 SEG

    HIGH AMBAR2       'ACTIVA ROJO

    PAUSE 3000        'ESPERA 22SEG

    LOW ROJO1         'DESACTIVA VERDE

    LOW VERDE2        'DESACTIVA AMBAR

    LOW AMBAR2       

    HIGH ROJO2        'ACTIVA LED ROJO1

    HIGH VERDE1

    PAUSE 22000       'ESPERA 25 SEG

    HIGH AMBAR1       'ACTIVA ROJO

    PAUSE 3000        'ESPERA 22 SEG

    LOW ROJO2         'DESACTIVA VERDE

    LOW VERDE1        'DESACTIVA AMBAR

    LOW AMBAR1

    GOTO SEMAFORO     'REOTORNO A SEMAFORO

    END