'Pines.bas
'201102
'Para tarjeta Director ES
'***Usar compilador PBP***
'Fus para PIC16F87xA
'RC_OSC          
'HS_OSC          
'XT_OSC          
'LP_OSC         
'WDT_ON          
'WDT_OFF         
'PWRT_ON        
'PWRT_OFF        
'BOD_ON          
'BOD_OFF         
'LVP_ON          
'LVP_OFF         
'CPD_ON          
'CPD_OFF         
'WRT_HALF        
'WRT_1FOURTH     
'WRT_256         
'WRT_OFF         
'DEBUG_ON        
'DEBUG_OFF       
'PROTECT_ON      
'PROTECT_OFF
 

    @ device  pic16F874A, xt_osc, wdt_off, pwrt_on, lvp_off, protect_on

		RA0	VAR	PortA.0
		RA1	VAR	PortA.1
		RA2	VAR	PortA.2
		RA3	VAR	PortA.3
		RA4	VAR	PortA.4
		RA5	VAR	PortA.5
					
		RB0	VAR	PortB.0	
		RB1	VAR	PortB.1	
		RB2	VAR	PortB.2	
		RB3	VAR	PortB.3	
		RB4 VAR	PortB.4	
		RB5	VAR	PortB.5	
		RB6	VAR	PortB.6	
		RB7	VAR	PortB.7

		RC0	VAR	PortC.0
		RC1	VAR	PortC.1
		RC2	VAR	PortC.2
		RC3	VAR	PortC.3
		RC4	VAR	PortC.4
		RC5	VAR	PortC.5
		RC6	VAR	PortC.6
		RC7	VAR	PortC.7

		RD0	VAR	PortD.0
		RD1	VAR	PortD.1
		RD2	VAR	PortD.2
		RD3	VAR	PortD.3
		RD4	VAR	PortD.4
		RD5	VAR	PortD.5
		RD6	VAR	PortD.6
		RD7	VAR	PortD.7

        RE0 VAR PortE.0
        RE1 VAR PortE.1
        RE2 VAR PortE.2

       
    ASM

	bcf	0x03,0x05		;status bit de banco
	bcf	0x03,0x06		;status bit de banco

	bsf	0x03,0x05		;cambia a banco 1

	movlw	0x07		;b'00000111'
	movwf	0x9f		;adcon1 inicia A/D del porta como I/0

	bcf	0x03,0x05		;cambia a banco 0

	ENDASM

	TRISA=%11111111
	TRISB=%11111111
	TRISC=%11111111
	TRISD=%11111111
	TRISE=%00000111
	


	Goto Inicio

'Subrutinas
'--------------------------------------------------------------------
'Nomre:

'Return
'--------------------------------------------------------------------
Inicio:
 
 
End