haber zagales ahi va mi rutina, e tardao un poco porque e tenido unos problemas que ya os comentare mañana:
; PC-ra bidaltzen duen azpifuntzioa
; hay que declarar tmp,kont,sensoreak,sensorkop,carry(por definicion a 0)
tmp EQU 0×10
kont EQU 0×11
sensoreak EQU 0×12
sensorkop EQU 0×13
carry EQU 0×14
List p=16F84;Tipo de procesador
include “P16F84.INC”
org 0×00
goto PcBidali
org 0×05
PcBidali movlw d’0′
movwf kont
bcf PORTB,0 ; hasierako bit-a
loop rlf sensoreak
bsf STATUS,C
bcf STATUS,C
call retardo ; 100 mikrosegunduko retardo bat
goto bidali
bidalibukatu movlw sensorkop
movwf tmp
movlw kont
subwf tmp,F
decf kont,F
btfss STATUS,Z
goto loop
goto amaiera
bidali btfss STATUS,C
movf carry,d’1′
movlw d’7′
movwf kont
bitbidali bcf PORTB,0
call retardo
movlw d’0′
subwf kont,F
btfss STATUS,Z
goto bitbidali
movwf carry ; azken bit-a
subwf carry,F
btfss STATUS,C
bsf PORTB,0
bcf PORTB,0
call retardo ; stop bit-ak
bsf PORTB,0
call retardo
bsf PORTB,0
goto bidalibukatu
retardo nop
nop
return
amaiera nop
nop
end
Súbela a GMail, que asi es imposibol. Creo que no está bien, porque en SENSOREAK los datos comienzan desde la derecha, y van hacia la izquierda:
b7:S0 b6:S1…..b0:S7
Pero si hubiera 4 sensores, por ejemplo:
b7:NADA, b6:NADA,…..b3:S0,b2:S1,b1:S2,b0:S3
Firma tus posts!! que no se sabe quién eres.
solo la e subido pa que ordoñez y montejo se aclaren, me lo pidieron ellos, y lo de los sensores ya lo e solucionado, gastabread
a ver si me explican como cargar la subrutina en el mplab, para poder simularlo.