;;

	INCLUDE USEFUL.INC
	INCLUDE	PCMAC.INC 

        .MODEL  SMALL

        .STACK  100h

        .DATA

        .CODE
Main    PROC
	EXTRN	PutDec : NEAR
        mov     ax, @data
        mov     ds, ax

	mov	ax, 5
	push	ax
	mov	ax, 2
	push	ax
	call	Pow
	call	PutDec

        mov     al, 0   ; Return code of 0
        mov     ah, 4ch ;       Exit back to MS/PCDOS
        int     21h
Main    ENDP

Pow	PROC
	push	bp
	mov	bp, sp
	sub	sp, 2

	push	bx
	push	cx
	push	dx

	mov	[bp - 2], 1
	cmp	[bp + 4], 0
	je	ToEnd

	push	[bp + 6]
	mov	bx, [bp + 4]
	dec	bx
	push	bx
	call	Pow
	imul	[bp - 2]
	mov	[bp-2], ax

ToEnd:
	mov	ax, [bp-2]
	pop	dx
	pop	cx
	pop	bx
	add	sp, 2
	pop	bp
	ret	4
Pow	ENDP

        END     Main