h46509
s 00026/00000/00000
d D 1.1 83/03/24 15:05:56 lib 1 0
c date and time created 83/03/24 15:05:56 by lib
e
u
4
U
t
T
I 1
UtilCPM_Code	CSeg	Byte	Public

; Unsigned*2 Function Mult(I,J)
; Unsigned*2 I,J
; Mult = I*J

I	Equ	Ss:(Dword Ptr .10)[Bp]
J	Equ	Ss:(Dword Ptr .6)[Bp]

	Public	Mult
Mult:	Push	Bp			; Save caller's Bp
	Mov	Bp,Sp			; Point into stack

	Les	Si,I			; Get pointer to first operand
	Mov	Ax,Es:(Word Ptr .0)[Si]	; Get first operand

	Les	Si,J			; Get pointer to 2nd operand
	Mul	Es:(Word Ptr .0)[Si]	; Dx|Ax <- I*J

	Pop	Bp			; Restore caller's Bp
	Retf	8			; Return, trashing 2 pointers

Stack	SSeg
	Rs	2			; Space for Bp

	End
E 1
