'ALIAS

'----------------------------------------------------------------

    SAL1     VAR PORTB.3 

    SAL2     VAR PORTB.1 

    SAL3     VAR PORTB.0

    SAL4     VAR PORTB.5 

    SAL5     VAR PORTA.7 

    SAL6     VAR PORTA.6

    SAL7     VAR PORTB.7

    SAL8     VAR PORTB.6

    SAL9     VAR PORTB.4 

    SAL10    VAR PORTB.2

    

    I        VAR BYTE

 '----------------------------------------------------------------   

	

GOTO INICIO

	

'RUTINAS

'----------------------------------------------------------------   

SALIDAS_ENCIENDEN:

 SAL1=1

 PAUSE 50

 SAL2=1

 PAUSE 50

 SAL3=1     

 PAUSE 50

 SAL4=1

 PAUSE 50

 SAL5=1

 PAUSE 50

 SAL6=1

 PAUSE 50

 SAL7=1

 PAUSE 50

 SAL8=1

 PAUSE 50

 SAL9=1

 PAUSE 50

 SAL10=1

 PAUSE 50	

RETURN

'----------------------------------------------------------------   

SALIDAS_APAGADAS:

 PortA=%00000000

 PortB=%00000000   

RETURN        

'----------------------------------------------------------------  



INICIO:

 GOSUB SALIDAS_ENCIENDEN

 GOSUB SALIDAS_APAGADAS

 PAUSE 250

 

 FOR I=1 TO 10

    GOSUB SALIDAS_ENCIENDEN    

    GOSUB SALIDAS_APAGADAS

 NEXT I 

 

GOTO INICIO