Subrutinas para PIC en ASM

Algunas subrutinas o mini programas que en lagun momento hemos implementado para PIC de microchip en MPLAB asm (el ASM clasico para los PICs de 8 bits)

1 Voltear un Registro

2 Convertir BYTE a BCD
3 Convertir 2BYTEs a BCD

4 Comparar 2 BYTEs

5 Convertir BCD a ASCII

6 Enviar Cadena de Texto ASCII
7 Demora 150mS (4Mhz)

8 Demora 20mS (4Mhz)

Revisar: Operaciones Matematicas en ASM para PIC

Revisar: Palabras de Configuracion(FUSES) por Meta

1 Voltear un Registro
; ****** ; ****** Voltear un registro cualquiera ***** ; El programa rota un Registro con esto ; Testeamos un bit cualquiera del registro y lo ponemos en la misma posicion pero ; en otro Registro que rota contrariamente al anterior, este al finalizar toda una vuelta completa ; contiene el registro original volteado ; ABFDEFGH---->HGFEDCBA ; BYTE: es el registro a Girar ; Temp,Temp2 registros temporales, deben definirse movf BYTE,W call Girar ... Girar movwf Temp ; muevo mi registro a Temp movlw d'8' ; establesco mi contador movwf Cont ; muevo al registro de Cuenta btfss Temp,7 ; pregunto al ultimo bit goto $+3 bsf STATUS,C goto $+2 bcf STATUS,C rlf Temp,F ; rotacion por izquierda tomando en cuenta la bandera C rrf Temp_2,F decfsz Cont,F ; decremento y verifico un giro completo goto Girar+3 ; no, sigo con la misma secuencia movf Temp_2,W movwf Temp ; registro Listo!! contiene BYTE pero volteado return
2 Convertir BYTE a BCD (un simple contador 0-255)
; ****** ***************************************************************** ; ****** Convertir un BYTE(registro cualquiera) en BCD(cen,dec,uni) ****** ; se guarda en cen,dec,uni las cifras respectivas en BCD de BYTE 0..255 clrf uni clrf dec clrf cen movf BYTE,W call Byte_BCD ... ... Byte_BCD movwf Temp ; muevo mi Dato a convertir a Temp goto Uni decfsz Temp,F ; decremento Temp.... goto Uni return Uni incf uni,F ; mientras "Temp" decrementa, "uni" crece uno a uno movf uni,W sublw d'10' btfss STATUS,Z ; Pregunto si "uni" llego a 10 goto Byte_BCD+2 ; no sigo la misma secuencia clrf uni ; si entonces uni=0, luego debo i++ a dec Dec incf dec,F movf dec,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 goto Byte_BCD+2 ; no sigo la misma secuencia clrf dec ; si entonces dec=0, luego debo i++ a dec Cen incf cen,F ; no hace falta verificar si desborda 10 goto Byte_BCD+2
3 Convertir 2BYTEs a BCD (mismo contador, pero 0-65535, tarda mucho!!, revisar operaciones Matematicas en ASM)
; movf BYTE_H,W ; movwf Temp_H ; movf BYTE_L,W ; movwf Temp_L ; call b16_BCD cblock uni ; BCD Unidad dec ; BCD Decena cen ; BCD Centena umi ; BCD Unidad de Millar dmi ; BCD Decena de Millar Temp_L ; Almacena el contador del Byte mas bajo Temp_H ; Almacena el contador del Byte mas bajo Numero ; Tiene Flags que indican que Byte es 0 endc H equ 1 L equ 0 b16_BCD clrf uni clrf dec clrf cen clrf umi clrf dmi clrf Numero call No_Cero_H btfss STATUS,Z goto $+2 bsf Numero,H call No_Cero_L btfss STATUS,Z goto Lazo bsf Numero,L call Verificar btfss STATUS,Z goto $+2 return incf uni,F btfss Numero,L goto Lazo decf Temp_H Lazo decfsz Temp_L,F goto Uni bsf Numero,L call Verificar btfss STATUS,Z goto $+2 goto Sumar_1 decfsz Temp_H,F goto Uni bsf Numero,H goto Uni Uni bcf Numero,L incf uni,F ; mientras "Temp" decrementa, "uni" crece uno a uno movf uni,W sublw d'10' btfss STATUS,Z ; Pregunto si "uni" llego a 10 goto Lazo ; no sigo la misma secuencia clrf uni ; si entonces uni=0, luego debo i++ a dec Dec incf dec,F movf dec,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 goto Lazo ; no sigo la misma secuencia clrf dec ; si entonces dec=0, luego debo i++ a dec Cen incf cen,F ; no hace falta verificar si desborda 10 movf cen,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 goto Lazo ; no sigo la misma secuencia clrf cen ; si entonces dec=0, luego debo i++ a dec Umi incf umi,F ; no hace falta verificar si desborda 10 movf umi,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 goto Lazo ; no sigo la misma secuencia clrf umi ; si entonces dec=0, luego debo i++ a dec Dmi incf dmi,F ; no hace falta verificar si desborda 10 goto Lazo ; no sigo la misma secuencia ; -- Compruebo que Temp_H !=0 ------------- No_Cero_H incf Temp_H,W sublw d'1' return ; -- Compruebo que Temp_L !=0 ------------- No_Cero_L incf Temp_L,W sublw d'1' return ; -- Compruebo si acabo ------------------- Verificar incf Numero,W sublw d'4' return ; ----------------------------------------- Sumar_1 incf uni,F ; mientras "Temp" decrementa, "uni" crece uno a uno movf uni,W sublw d'10' btfss STATUS,Z ; Pregunto si "uni" llego a 10 return ; no sigo la misma secuencia clrf uni ; si entonces uni=0, luego debo i++ a dec incf dec,F movf dec,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 return ; no sigo la misma secuencia clrf dec ; si entonces dec=0, luego debo i++ a dec incf cen,F ; no hace falta verificar si desborda 10 movf cen,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 return ; no sigo la misma secuencia clrf cen ; si entonces dec=0, luego debo i++ a dec incf umi,F ; no hace falta verificar si desborda 10 movf umi,W sublw d'10' btfss STATUS,Z ; Pregunto si "dec" llego a 10 return ; no sigo la misma secuencia clrf umi ; si entonces dec=0, luego debo i++ a dec incf dmi,F ; no hace falta verificar si desborda 10 return ; no sigo la misma secuencia
4 Comparar 2 BYTEs (Mayor,Menor,Igual)
; el Registro "ComparaF" tiene los Flags Compara movf BYTE_A,W subwf BYTE_B,W btfss STATUS,Z goto $+2 bsf ComparaF,Igual ; BYTE_A=BYTE_B btfss STATUS,C goto $+3 bsf ComparaF,B_B ; BYTE_B>BYTE_A return bsf ComparaF,B_A ; BYTE_A>BYTE_B return

5 Convertir BCD a ASCII
; ****** Convertir un numero BCD(n<=9) en ASCII ****** ; La logica es simple para numeos 0..9 ; numero hX en ASII es h3X, donde 0<=X<=9 BCD_ASCII movwf Temp movlw 0x30 addwf Temp,W ; agrego 3 al nible mas alto return
6 Enviar Cadena de Texto ASCII
; ************ fin equ 7 ;bandera que me indica si acabo de enviar toda la cadena de caracteres ; ************ Cadena1 addwf PCL,F retlw 0x0D ; retorno de carro DT "Aqui lo el ASCII q se me acurra..." retlw 0x0A ; nueva linea bsf Cont_cadena,fin ; pongo a 1 mi bandera return ; tengo un limite de 128 caracteres para enviar antes que Cont_cadena ; al incrementar toque el bit 7 q a la Vez es mi Indicador para finalizar ; ****** Subrutina para Generar cadenas de Texto en ASCII ****** clrf Cont_cadena Mostrar_Cadena1 movf Cont_cadena,W call Cadena1 ; Llama a devolver un valor de la Tabla btfss Cont_cadena,7 goto $+2 goto $+4 call Hacer_Algo ; aqui, W contiene el valor de un ASCII incf Cont_cadena ; Incremento mi Contador de cadena goto Mostrar_Cadena1 ; Regreso clrf Cont_cadena ; acabe, salgo return
7 Demora 150mS (4Mhz)
... call Demora_150ms ... ;**** Demora **** Demora_150ms movlw 0xFF ; movwf Contador1 ; Iniciamos contador1.- Repeticion1 movlw 0xC3 ; movwf Contador2 ; Iniciamos contador2 Repeticion2 decfsz Contador2,1 ; Decrementa Contador2 y si es 0 sale.- goto Repeticion2 ; Si no es 0 repetimos ciclo.- decfsz Contador1,1 ; Decrementa Contador1.- goto Repeticion1 ; Si no es cero repetimos ciclo.- return ; Regresa de la subrutina.- ; de los ejemplos de http://www.micros-designs.com.ar/mis-primeros-programas-en-asm-pics/
8 Demora 20mS (4Mhz)
; ... call Demora_20ms ... ;**** Demora **** Demora_20ms movlw 0xFF ; movwf Contador1 ; Iniciamos contador1.- Repeticion1 movlw 0x19 ; movwf Contador2 ; Iniciamos contador2 Repeticion2 decfsz Contador2,1 ; Decrementa Contador2 y si es 0 sale.- goto Repeticion2 ; Si no es 0 repetimos ciclo.- decfsz Contador1,1 ; Decrementa Contador1.- goto Repeticion1 ; Si no es cero repetimos ciclo.- return ; Regresa de la subrutina.- ; de los ejemplos de http://www.micros-designs.com.ar/mis-primeros-programas-en-asm-pics/