'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 26/07/2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@ DEVICE PIC16F628A
@ DEVICE PROTECT_OFF
@ DEVICE CPD_OFF
@ DEVICE WDT_OFF
@ DEVICE BOD_OFF
@ DEVICE PWRT_OFF
@ DEVICE MCLR_OFF
@ DEVICE LVP_OFF
@ DEVICE HS_OSC 

INCLUDE "modedefs.bas"
DEFINE   OSC 20

TRISA=$F0 'PORTA.0 ES ENTRADA
TRISB=0 'PORTB.0 ES SALIDA
CMCON=7 'DESACTIVA EL MODO COMPARADOR

CLK VAR PORTB.0
DS VAR PORTB.1
ST VAR PORTB.2 : ST = 0
DATO VAR WORD  : DATO = 1
CUENTA VAR BYTE
IND VAR BYTE : IND=14

BUCLE:
    
    SHIFTOUT DS,CLK,1,[DATO\14]
    ST=1 : PAUSE 1 : ST = 0
    DATO = DATO<<1
    CUENTA=CUENTA+1
    PAUSE 100
    IF CUENTA<IND THEN
        GOTO bucle
    ENDIF
    
CUENTA=0
IND=IND-1
GOTO BUCLE