Intel mcs-48 APP\,JCATION Examples, 16 x 8 DIVIDE-ASSEMBLED by MCS-48 Macro ASS.E.MBLERSEE AP-49

APP\,JCATION EXAMPLES

16 x 8 DIVIDE-{ASSEMBLED BY MCS-48 MACRO ASS.E.MBLERSEE AP-49)

ISIS-II "CS-48/UPI-41 UCRO ASSE"8LER, Y3.B

LO C	08 J	LI NE				SOURCE		STATE"ENT
		•	183	UNCLUOE(' Fl' DIYI6)
		1= 184 i.*****.************.*******************.****.***·*··· •••••••••••••••••••••••••
		1=	185	l *		0lV16		•
		1-	186	It
		1=	187	, .
		1=	188
		1=	18'	He
		1=	1 ~B	,.		THIS		UTILITY PROVIDES AN 16 BY 8 UNSIGNED ~IVIDE
		1=	191	, .		AT	ENTRY'
		1=	192 'ill				A = LOWER EIGHT BITS OF DESTINATION OPERAND
		1= 193		;.			XA=	UPPER EIGHT BITS OF DIVIDEND
		1-	194	,.			RI-	POINTER TO DIVISOR IN IHTERNAL "EHORY
		1-	195	;.,
		1= 19'		; .		AT	EXIT'
		1=	197	,.			A =	LOWER EIGHT BITS OF RESULT
		1=	19B	,			XA=	RE"A INDER
		1 =	199	; *			C = SET IF OYERFLOW ELSE CLEARED
		1=	2BB	,.
		1=	2Bl	; ......................................•..•••.•••••••..•.•.•.••...••••••.•••.••
		1-	282
		1-	283
BB 48	2A	1=	284	'1	OIY16'			) ROUTINE WORKS "OSTLY WITH 81TS 15-8
		1=	285	DIVI6,		XCH
		1=	286	;1	COUNT'=S
BB4C	88B8	1=	207			nov		COUNT,IS
		I-	28B	'1	DIYIDENDI IS-BI'=DIVIDENDI 15-BI-DIVISOR
BB4E	37	1=	2B~			CPL		A
B04F	61	1-	21B			ADD		A, IIRI
8050	37	1=	211			CPL		A
		1=	212	'1	IF BORROW=B THEN /. IT FITS.I
USI	F65.	1=	213			JC		DIVIA
BU53		1=	214	,2		SET	OYERFL~W FLAG
	A7	1=	215			CPL		C·
B054	BHF	1-	216			J"P		DIYIB
		I- 217 ) 1 ELSE
		1=	218	OIYIA'
		1=	219	'2		RESTORE		DIVIDEND
aD56	61	1= 22 B				ADO		A, @R I
		1= 221		'2		REPEAT
		1=	222	OIYILP'
		1= 223		) 4			DIV!DEND'=DIYIDENO.2
B057		1=	224	) 4			QUOTIEHT,-gUOTIEHT*2
	~7	1=	225			CLR		C
USB	2A	1=	226			XCH		A,XA
Be"	F7	I-	227			RLC		A
USA	2A	1=	22B			XCH		A, XA
USB	F7	1=	229			RLC		A
BOSC	EH3	1-	23B			JNC		DIYIE
USE	37	1=	231			CPL		A
885F	61	1=	232			ADD		A, fRl
BUB	37	1=	233			cn		A
DB.l	BHB	1-	234			JHP		DIVIC
		1=	235	,4			oIV IDEND[ 15-8]' -01VI DEND[ IS-81-01V1S0R
U.3	37	1=	236	DIYIE'		CPL		A
U64	61	1=	237			ADD		A,9Rl

5-28