Mi aporte al mundo (Parte II)

;----------------------------------
;programa principal -
;----------------------------------
paso2
movlw b'00001000'
bsf status,rp0
movwf porta
movlw b'00001111'
movwf portb
paso4
clrw
bcf status,rp0
btfss porta,ra3
goto paso4
btfss portb,rb0_int
goto paso10
movlw d'49'
movwf enviar
paso8
bsf porta,ra2
movf enviar,w
movwf temp1
call rs232_ta2_1200
sleep
goto paso4
paso10
btfss portb,rb1
goto paso12
movlw d'50'
movwf enviar
goto paso8
paso12
btfss portb,rb2
goto paso14
movlw d'51'
movwf enviar
goto paso8
paso14
btfss portb,rb3
goto paso4
movlw d'52'
movwf enviar
goto paso8

;---------------------------------
;Declaración de Subrutinas -
;---------------------------------

rs232_ta2_1200
movlw .8
bcf status,rp0
movwf temp2
bcf porta,2
call tiempo_1200_bd
rs232_ta2_1200_tx_otro
bcf porta,2
bcf status,c
rrf temp1,1
btfsc status,c
bsf porta,2
call tiempo_1200_bd
decfsz temp2,1
goto rs232_ta2_1200_tx_otro
bsf porta,2
call tiempo_1200_bd
return

;--------------------------------------
; Para transmitir a velocidad de 1200 -
;--------------------------------------

tiempo_1200_bd
movlw .205
bcf status,rp0
movwf temp3
tiempo_1200_bd_bucle
nop
decfsz temp3,1
goto tiempo_1200_bd_bucle
return

;---------------------------------------
End