CAP3MICR
CAP3MICR
CAP3MICR
LIST P=16F877
RADIX HEX
INCLUDE <P16F877.INC>
LOS_DATOS EQU 0X20
cblock LOS_DATOS
PRODH
PRODL
MDR
MDO
CONT
endc
ORG 05
bcf STATUS,RP1
bcf STATUS,RP0
clrf PRODH
clrf PRODL
movlw 60
movwf MDR
movlw 50
movwf MDO
movlw 07
movwf CONT
movf CONT,1
lazo btfsc STATUS,Z
goto termina
rlf MDR,1
btfsc STATUS,C
call sumae
bcf STATUS,C
rlf PRODL
rlf PRODH
decf CONT,1
goto lazo
Curso Microprocesadores 2
Prfr. Carlos Celaya Borges
sumae movf MDO,0
addwf PRODL,1
btfsc STATUS,C
incf PRODH,1
RETURN
termina nop
end
LIST P = 16F877
INCLUDE <P16F877.INC>
SUBLW 0X0A
BTFSS STATUS,Z
GOTO S1 ;SI NO ES CERO
MOVLW 0X06
ADDWF INDF,F ;SUMA 6 A LA MEMORIA INDIRECTAMENTE
MOVLW 0XF0
ANDWF INDF,W
SUBLW 0XA0
BTFSS STATUS,Z
GOTO S1
MOVLW 0X60
ADDWF INDF,F
INCF FSR,f
GOTO INCD
S1 RETURN
END