;雙字節乘法子程序H2MUL_SUB,Page 6
;入口條件：被乘數放在20H,21H;乘數放在22H,23H；乘數位數放在2AH
;出口條件：積數放在R4,R5,R6,R7
;影響參數：A,R0,R1,R2,R4,R5,R6,R7 
H2MUL_SUB:	MOV R0,20H;
	MOV R1,21H
	MOV R2,22H
	MOV R3,23H
	MOV R4,#00H
	MOV R5,#00H
	MOV R6,#00H
	MOV R7,#00H
	MOV 2AH,#10H
LOOP_D_M:	MOV A,R4
	ADD A,R4
	MOV R4,A
	MOV A,R5
	ADDC A,R5
	MOV R5,A
	MOV A,R6
	ADDC A,R6
	MOV R6,A 
	MOV A,R7
	ADDC A,R7
	MOV R7,A
	MOV A,R2
	ADD A,R2
	MOV R2,A
	MOV A,R3
	ADDC A,R3
	MOV R3,A
	JNC TO_LOOP0
	MOV A,R4
	ADD A,R0
	MOV R4,A
	MOV A,R5
	ADDC A,R1
	MOV R5,A
	MOV A,R6 
	ADDC A,#00H
	MOV R6,A
	MOV A,R7 
	ADDC A,#00H
	MOV R7,A 
TO_LOOP0:	DJNZ 2AH,LOOP_D_M
	RET