'****************************************************************
'*  Name    : counter3.bas                                      *
'*  Author  : W.D.Sherman                                       *
'*  Notice  : Copyright (c) 2011                                *
'*          : All Rights Reserved                               *
'*  Date    : 3/29/2011                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************


DEFINE OSC 16 


ADCON0=%00000000 'turn off adc 
ANSEL=%00000000  'deselect adc pin                    
CMCON=%00000111 'turn off comparator and make digital
   

@ DEVICE PIC12F675,HS_OSC

  Input GPIO.5
  Input GPIO.4
  Input GPIO.3
  Input GPIO.2
  Input GPIO.1
  Output GPIO.0




b0 VAR BYTE

start:

Count GPIO.2, 1000, b0


SerOut GPIO.0,6, [b0,0] 
GoTo start