gracias, ya funciona al menos en simulacion ya el programa llama al retardo que yo hice, KILLERJC, lo puedes comprobar en proteus haber si funciona y si sale la forma correcta de la señal por el pin A1, es que yo no tengo proteus
este es el codigo
#INCLUDE<P16F73.INC>
CBLOCK 0x20
R_ContA
R_ContB
R_ContC
ENDC
PUERTOS
BSF STATUS,5
BCF STATUS,6
BSF ADCON1,0
BSF ADCON1,1
BSF ADCON1,2
CLRF TRISB
CLRF TRISA
CLRF TRISC
BCF STATUS,5
BCF STATUS,6
CLRF PORTA
CLRF PORTC
CLRF PORTB
CLRW
BTFSC PORTA,4
CALL RUT
BTFSS PORTA,4
CALL RUT_2
CALL LED_1
; CALL MINIENVIO
GOTO ENVIO
RUT
BCF PORTB,0
BCF PORTB,1
BCF PORTB,2
BCF PORTB,3
RETURN
RUT_2
BSF PORTB,0
BSF PORTB,1
BSF PORTB,2
BSF PORTB,3
RETURN
LED_1
BSF PORTA,0
RETURN
ENVIO
BSF PORTA,2
CALL Retardo_05s ;1
CALL Retardo_05s ;1 --- 11
BCF PORTA,2
CALL Retardo_05s ;0
BSF PORTA,2
CALL Retardo_05s ;1 --- 01
BCF PORTA,2
CALL Retardo_05s ;0
BSF PORTA,2
CALL Retardo_05s ;1 --- 01
CALL Retardo_05s
BCF PORTA,2
CALL Retardo_05s ;0 --- 10
BSF PORTA,2
CALL Retardo_05s ;1
BCF PORTA,2
CALL Retardo_05s ;0 --- 10
BSF PORTA,2
CALL Retardo_05s ;1
BCF PORTA,2
CALL Retardo_05s ;0 --- 10
CALL Retardo_05s ;0
BSF PORTA,2
CALL Retardo_05s ;1 --- 01
BSF PORTA,2
CALL Retardo_05s ;1
BCF PORTA,2
CALL Retardo_05s ;0 --- 10
GOTO ENVIO
MINIENVIO
BSF PORTA,2
BCF PORTA,2
BSF PORTA,2
BCF PORTA,2
RETURN
Retardo_05s ;499994 cycles
movlw 0x08
movwf R_ContA
movlw 0x2F
movwf R_ContB
movlw 0x03
movwf R_ContC
goto Delay_0
Delay_0
decfsz R_ContA, f
goto $+2
decfsz R_ContB , f
goto $+2
decfsz R_ContC, f
; goto Delay_0
return
;6 cycles
goto $+1
nop
end