# Obliczenia Symbolu Newtona

newton-rekurencyjnie.asm

; function WspNewtonaRek( n, k : integer ) : integer;
; begin
;     if (k = 0) or (k = n) then
;         WspNewtonaRek := 1
;     else
;         WspNewtonaRek := WspNewtonaRek( n-1, k-1 ) + WspNewtonaRek( n-1, k );
; end;
; 
; 
; function newton(n, k){
; 	if ((k != 0) && (k != n)){
; 		return newton( n - 1, k) + newton(n - 1, k - 1);
; 	}
; 	return 1;
; }
; 
; newton(9,7);

; Symbol Newtona rekurencyjny
; Input BL - n, CL - k
; Output AL

JMP start
ORG 5
PUSH BL
PUSH CL
PUSH DL
	CMP CL, 0
	JZ ret_1
	CMP CL, BL
	JZ ret_1
	MOV DL, 0 	; r = 0;
	DEC BL	 	; n -1 
	CALL 5		; newton(n - 1, k)
	ADD DL, AL	; r += newton(n - 1, k)
	DEC CL      ; k - 1
	CALL 5		; newton( n - 1, k - 1)
	ADD DL, AL	; r += newton( n - 1, k - 1)
	PUSH DL
	POP AL
	JMP ret
	ret_1: 
	MOV AL, 1
	ret:
POP DL
POP CL
POP BL
RET 
start:
MOV BL, 9
MOV CL, 7

CALL 5

END