processor 16f877
include<p16f877.inc>

res1 equ h'23'
res2 equ h'22'

org 0h
goto inicio
org 04h

inicio:
    clrf W; Limpia W
    incf 0x21, 1
    goto mult ; Ve a multiplicar

mult:
    movf 0x20, w
    addwf res1, f ; res += int1

    btfsc STATUS, C ; Ve si carry está en 1
    incf res2, f ; Aumenta parte superior del resultado

    decfsz 0x21 ; num2--, checa si es cero
    goto mult
    end

end