Autor Tema: Ayuda PIC 18Fxx Programa  (Leído 1002 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado totopic

  • PIC10
  • *
  • Mensajes: 14
Ayuda PIC 18Fxx Programa
« en: 28 de Noviembre de 2003, 09:06:00 »
Necesito una mano con este programa.
Por favor, ver el ejemplo y diganme como solucionar este tema.
Lo simulo con IDE y no funciona.
Estoy usando 18f452.

;**********************************************************************************
;******************************************************************************************
;
;   INICIO DE PROGAMA PARA 18F452
;
;   ESTO  ES
;         0X00F1(HEX) Y DEBERIA DAR 57586  -.> R0= 05
;                           R1= 75
;                           R2= 86   
;
;**************************************************************************************

PRUEBA
   MOVLW   0X0F2
   MOVWF   L_byte
   MOVLW   0X0E0
   MOVWF   H_byte
   call   B2_BCD


qwq   goto   qwq




;********************
;ESTO ANDA PERFECTO PERO PARA 17Cxx   CON EL REG. FSR  
;*******************************************

;********************************************************
;      PIC 17Cxx
;   RUTINA PARA convertir BCD-HEX  16 BIT ( 65535 )
;   R0:06,R1:55,R2:35   17Cxx
;**********************************************************

B2_BCD  
   BSF     _FS0              ; clear the carry bit
   BSF     _FS1
   BCF   _CARRY   
   movlw   .16
   movwf   TEMP1
   clrf    R0
   clrf    R1
   clrf    R2
loop16  
   rlcf     L_byte
   rlcf     H_byte
   rlcf     R2, F
   rlcf     R1, F
   rlcf     R0, F
;
   DCFSNZ  TEMP1
   RETLW   0
   goto    adjDEC

;
adjDEC  
   movlw   R2
   movwf   FSR0
   call    adjBCD
;
   movlw   R1
   movwf   FSR0
   call    adjBCD
;
   movlw   R0
   movwf   FSR0
   call    adjBCD
;
   goto    loop16
;
adjBCD  
   movfP   INDF0,W   ;******ESTA INSTRUCCION NO ANDA 18F452
   addlw   0x03
   btfsc   W,3             ; test if result > 7
   movwf   INDF0
   movfP   INDF0,W   ;******ESTA INSTRUCCION NO ANDA 18F452

   addlw   0x30
   btfsc   W,7             ; test if result > 7
   movwf   INDF0             ; save as MSD
   RETLW   0




;******************************************************************************************
;*************************************************
;ESTO ANDA PERFECTO PERO 16Fxxx DONDE EL REG. FSR  
;*******************************************
;********************************************************
;
;********************************************************
;      PIC 16Cxx Y 16Fxx
;
;   RUTINA PARA LEER BCD-HEX  16 BIT ( 65535 )
;   R0:06,R1:55,R2:35
;**********************************************************

B2_BCD  bcf     STATUS,0                ; clear the carry bit
   movlw   .16
   movwf   TEMP1
   clrf    R0
   clrf    R1
   clrf    R2
loop16  rlf     L_byte, F
   rlf     H_byte, F
   rlf     R2, F
   rlf     R1, F
   rlf     R0, F
;
   decfsz  TEMP1, F
   goto    adjDEC
   RETLW   0
;
adjDEC  movlw   R2
   movwf   FSR      ;***OK
   call    adjBCD
;
   movlw   R1
   movwf   FSR
   call    adjBCD
;
   movlw   R0
   movwf   FSR
   call    adjBCD
;
   goto    loop16
;
adjBCD  
   movlw   0X03
   addwf   0,W
   movwf   TEMP
   btfsc   TEMP,3          ; test if result > 7
   movwf   0
   movlw   0X30
   addwf   0,W
   movwf   TEMP
   btfsc   TEMP,7          ; test if result > 7
   movwf   0               ; save as MSD
   RETURN
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

;*************************************************************************
;   y PIC 18F452 ?
;   QUE CAMBIO PAR  QUE FUNCIONE CON  FSR?
;
;*********************************************************************************


   

Desconectado Sispic

  • Moderador Local
  • PIC24H
  • *****
  • Mensajes: 1513
    • winpic800
RE: Ayuda PIC 18Fxx Programa
« Respuesta #1 en: 28 de Noviembre de 2003, 12:56:00 »
No domino mucho asm pero tendrias que utilizar FSR0H parte alta , FSR0L parte baja y INDF0 ya que tiene 1.536 bytes  de ram .
algo hice una vez con estos registros , pero ahora no lo tengo fresco .

Hechale de Data Sheet .
un saludo

sisco

Desconectado totopic

  • PIC10
  • *
  • Mensajes: 14
RE: Ayuda PIC 18Fxx Programa
« Respuesta #2 en: 02 de Diciembre de 2003, 07:16:00 »
Gracias SISPIC.
En realidad ya probe con FSRL0, y con INTCON0 que corresponderia, pero....no funciona...
por ello mi pregunta es para algunos que probaron, desde ya muchas gracias..


 

anything