Циклы. Компьютерные основы программирования. Представление программ, часть 3

_pcount proc far
push bp
mov bp,sp
mov bx,word ptr [bp+6]
xor cx,cx
@1@58:
mov ax,bx
and ax,1
mov dx,cx
add dx,ax
mov cx,dx
shr bx,1
or bx,bx
jne short @1@58
mov ax,cx
pop bp
ret

_fib proc far
push bp
mov bp,sp
sub sp,2
xor dx,dx
xor bx,bx
mov cx,1
@1@58:
mov ax,bx
add ax,cx
mov word ptr [bp-2],ax
mov bx,cx
mov cx,word ptr [bp-2]
inc dx
cmp dx,word ptr [bp+6]
jl short @1@58
mov ax,bx
mov sp,bp
pop bp
ret

_fib1 proc far
push bp
mov bp,sp
sub sp,2
mov dx,1
mov bx,1
mov cx,1
jmp short @1@86
@1@58:
mov ax,bx
add ax,cx
mov word ptr [bp-2],ax
mov bx,cx
mov cx,word ptr [bp-2]
inc dx
@1@86:
cmp dx,word ptr [bp+6]
jl short @1@58
mov ax,bx
mov sp,bp
pop bp
ret

i = 1

i < n

_fib2 proc far
push bp
mov bp,sp
sub sp,2
mov bx,1
mov cx,1
mov dx,1
jmp short @1@114
@1@58:
mov ax,bx
add ax,cx
mov word ptr [bp-2],ax
mov bx,cx
mov cx,word ptr [bp-2]
inc dx
@1@114:
cmp dx,word ptr [bp+6]
jl short @1@58
mov ax,bx
mov sp,bp
pop bp
ret

Процедуры Структура стекового фрейма

_swap_add proc far
push ebp
mov ebp,esp
lea ebx,dword ptr [ebp+8]
mov edx,dword ptr [ebx]
lea ebx,dword ptr [ebp+12]
mov ecx,dword ptr [ebx]
lea ebx,dword ptr

Рекурсивные процедуры

_fib proc far
push bp
mov bp,sp
sub sp,4
push si
mov si,word ptr [bp+6]
cmp si,2
jg short @1@114
mov ax,1
@1@86:
jmp short @1@142
@1@114:
mov ax,si
add ax,-2
push ax
call near ptr _fib
mov word ptr [bp-2],ax
mov ax,si
dec ax
push ax
call near ptr _fib

mov word