sumul.asm

PIC子程序大全

;********************SUMUL********************
;本程序实现单字节无符号数乘法。
;入口参数：被乘数在SOU中，乘数在RLT中。
;出口参数：结果在SOUH:SOU中。
;占用资源：W,STATUS,023H,024H,025H,026H,一重堆栈。

           ifndef       sumul1
           
           #define     sumul1
	           
sumul	
	movlw	8
	movwf	 cnt
	movfw	sou		;被乘数在SOU
	clrf	sou
	clrf	souh
	bcf	status,c
	
loop2       
	rrf	rlt,f		;乘数在RLT

	btfsc	status,c
	addwf	souh,f
	rrf	souh,f
	rrf	sou,f		;结果在SOUH:SOU
	decfsz	cnt,f
	goto	loop2
	retlw	0
           
           endif