Intel mcs-48 manual MULTIPLY-ASSEMBLED by MCS-48 Macro Assembler, See AP-49

APPLICATION EXAMPLES

8 x 8 MULTIPLY-ASSEMBLED BY MCS-48 MACRO ASSEMBLER

							SEE AP-49
ISIS-II "CS-48/UPI-41 "ACRO ASSE"8LER, Y3.B
LOC 08J		LI NE		SOURCE		STATEMENT
	. III		SItICLUDE('FI'"PYS)
	I'112 SI NClUDE(: FI: "PYS. PDl)
	2'	113 ; •••••••••••••• ** •••••••••• ** •••••••• *******.** •••• ** ••••••••••••••••••••••••••
	2-	114	;.					.
	2'	115	I.	"PYSXS
	2- 116 I .
	2'	117	j*============================================================================*
	2- 118 I.			THIS UTiliTY PROVIDES AN S 8Y e UNSIGNED "UlTIPLY
	2·	I" I .
	2'	128	I .	AT	ENTRY'
	2·	121 I .			A • LOWER EIGHT SITS OF DESTINATION OPERAND
	2'	122	"		KA-	~ON'T	CARE
	2-	123	)'		RI'	POINTER TO SOURCE OPERAHO <"ULTIPLIER) IN IHTERNAL "E"EORY
	2-	124	,.					•
	2-	125	"	AT	EKIT'
	2-	126			A •	LOWER	EIGHT 81TS OF RESULT	•
	2-	127	"		XA- UPPER EIGHT 81TS OF RESULT
	2-	128	"		C •	SET IF OVERFlOW elSE CLEARED
	2-		I .
		12'
	2- 131 ;".........................................................•.......•.........•..
	2'	131
	2-	132
	2- 133 II "PY8Ke:
	2- 134 1I "ULTIPLICAHO[15-SI:=8
	2- 135 II COUNT:-9
	2- 136 II REPEAT
	2-	137	12	IF "ULTIPlICAHO[8l-. THEH BEGIH
	2-	138	13	"UlTIPlICANO""ULTIPLICAHD/2
	2-	139	12	ELSE
	2-	141	13	"UlTIPLlCAHO[ 15-9l:'"UlTIPLlCAHO[ 15-9l+"ULTIPLlER
	2-	141	13	"UlTIPLICAHO'="ULTIPlICAHO/2
	2-	142	12	ENDIF
	2-	143	12	COUHT:-COUNT-I
	2-	144	11	UHTI l COUHT-.
	2-	145	I I	EHO "PYaK9
	1-	146
	1-	147	fEJECT
	1-	148

5-26