%TITLE  "pr.robota#08;variant05;Kudryavcev"
        IDEAL
        MODEL   small
        STACK   256
k	EQU	20
        DATASEG
a	DB	-5
b	DB	25
c	DB	53
d	DB	-3
x       DB      ?
        CODESEG
Start:  mov     ax,@data
	mov     ds,ax
	xor     ax,ax
	mov	al,[a]
	imul	[a] ;al=a^2
	add	al,[b];al=a^2+b
	push 	ax; ax->стек
	xor	ax,ax
	mov	al,[a]
	imul	al
	mul	al;a^4
	mov	bl,[d];bl=d
	imul	bx ;bx=d^2
	push	ax;ax=a^4>стек
	xor	ax,ax
	mov	al,[a]
	imul	al
	mul	al;a^4
	mov	bl,[a];
	imul	bx ;a^2
	pop	bx;стек>bx
	sub	ax,bx;ax=a^5-d*bx=a^4
	pop	bx;ctek->bx
	idiv	bl; a^5-d*bx=a^4/bl=a^2*b
	neg	ax
	neg	ax
	add	al,[c]; a^5-d*bx=a^4/bl=a^2*b+al=c
	mov	bl,k;bl=k
	sub	al,bl; a^5-d*bx=a^4/bl=a^2*b+al=c-k
        mov     [x],al
	mov	dl,al
	add	dl,30h
	mov	ah,02h
	int	21h
Exit:	mov     ah,4Ch
	mov     al,0
	int     21h
	END     Start