CODE SEGMENT 
 ASSUME CS:CODE,DS:CODE 
 org 100h
 START: jmp begin
message db 13,10,9,'Input N(N<=10): $'
error db 13,10,9,'Data out of range!$'
begin:
 push cs
 pop ds
 mov dx,offset message
 mov ah,9
 int 21h

 call shur
 cmp bp,10
 jbe goon
 mov dx,offset error
 mov ah,9
 int 21h
 jmp exit
goon: 
 mov ax,0e0dh
 int 10h
 mov al,0ah
 int 10h
push bp
 call yhsj
exit:
 mov ah,0
 int 16h
 mov ah,4ch
 int 21h
 
shur proc
push cx
push bx
xor bp,bp
mov bx,10
mov cx,2
input:
mov ah,0 ;键盘输入数据
int 16h
cmp al,0dh ;以回车结束输入
jz ok
cmp al,'0' ;只允许输入0~9
jb input
cmp al,'9'
ja input
mov ah,0eh ;显示有效输入
int 10h
sub al,30h ;化ASCII为HEX
cbw ;字节扩展为字
xchg ax,bp
mul bx ;扩大10倍
add bp,ax ;加一位
loop input
ok:nop ;数值结果在BP中
;恢复用到的寄存器
pop bx
pop cx
ret
shur endp


; 输出杨辉三角的函数，接受一个栈上的参数N
; 输出N阶杨辉三角
yhsj:
 mov bp, sp
 mov ax, [bp+2]  ; 保存N到ax
 shr ax, 1  ; N = N / 2
 push ax
 mov ax, [bp+2]  ; 保存N到ax
 push ax
 call C; C(N, N/2)获取最后一行中间的那个值，即最大值
 call getdigit   ; 计算该最大值的长度，如252则返回3
 mov cx, ax ; 保存最大长度到cx，用于事后格式用
 xor di, di ; 外层循环计数di，外层循环输出每一行
 jmp cp1
up1:
 inc di; 更新di
cp1:
 cmp di, [bp+2]  ; 测试循环条件，循环N次
 jg done1
 mov ax, [bp+2]  ; 以下3句计算行前空格数 = (N-i)*cl，cl是最大长度
 sub ax, di
 mul cl
 call showspace  ; 输出行前空格
 xor si, si ; 内存循环计数si，内层循环输出一行中的每个数
 jmp cp2
up2:
 inc si; 更新di
cp2:
 cmp si, di ; 测试循环条件，循环di次
 jg done2
 push si
 push di
 call C; 获取该行的位于si位置的组合数，调用C(di, si)
 push ax   ; 保存该组合数
 call show  ; 输出该数
 mov ax, cx ;┒以下3句输出数字间间隔空格，个数 = N - 1
 sub ax, 1  ;┃
 call showspace  ;┚
 pop ax;┒
 call getdigit   ;┃获取该组合数长度
 mov bx, ax ;┃
 mov ax, cx ;┃
 sub ax, bx ;┃计算需要填充的空格数 = 最大长度 - 该数长度 + 1
 add ax, 1  ;┃本来应该先填充再输出数字间空格，顺序反过来是为了左对齐
 call showspace  ;┚以上打括号的2段反过来是正常的顺序
 jmp up2   ; 更新内层循环
done2: ; 内层循环结束
 mov ah, 2  ; 以下5句实现换行
 mov dl, 13
 int 21h
 mov dl, 10
 int 21h
 jmp up1   ; 更新外层循环
done1: ; 外层循环结束
 ret 2 ; 释放函数参数使用的栈空间

; 求组合数的递归函数，接受栈上的2个参数n, m(n > m)
; 返回C(n, m)，即n选m的个数
; 算法是:
; { C(n, m) = 1 (n < m 或 m = 0)
; { C(n, m) = C(n-1, m-1) + C(n-1, m) (n > m)
; 即某位置组合数等于上一行左右两数之和
C:
 push bp
 mov bp, sp
 sub sp, 2  ; 预留一个存储位置
 mov bx, [bp+6]  ; 保存m到bx
 cmp bx, [bp+4]  ; 如果m > n 返回1
 jz L1
 cmp bx, 0  ; 如果m = 0 返回1
 jz L1
 mov ax, [bp+4]  ; 保存n到ax
 dec ax; ax = ax - 1
 dec bx; bx = bx - 1
 push bx
 push ax
 call C; 返回上一行左边的那个数
 mov [bp-2], ax  ; 保存左肩膀上的数
 mov ax, [bp+4]  ; 以下5句同理，返回上一行右肩膀上的数
 dec ax
 push [bp+6]
 push ax
 call C
 add ax, [bp-2]  ; 和左肩膀上的数相加得出该组合数
 jmp L2
L1:
 mov ax, 1
L2: 
 mov sp, bp
 pop bp
 ret 4 ; ax返回组合数

; 递归以10进制输出ax
; 方法很简单，就是求出余数，然后ax = ax / 10
; ax = 0时退出，开始逆序输出求出的各位余数
show:
 mov bx, 10
 cmp ax, 0
 jz ok1
 div bl
 push ax
 and ax, 00ffh
 call show
 pop dx
 mov dl, dh
 or dl, 30h
 mov ah, 2
 int 21h
ok1:
 ret

; 获取一个数的长度，ax为参数，如果ax = 252则返回3
; ax里是返回值
getdigit:
 mov bx, 10
 xor dx, dx
next:
 cmp ax, 0
 jle ok2
 div bl
 and ax, 0ffh
 inc dx
 jmp next
ok2:
 mov ax, dx
 ret

; 输出ax个空格，参数ax，无返回值
showspace:
 mov bx, ax
 mov ah, 2
 mov dl, ' '
nexts:
 cmp bx, 0
 jle dones
 int 21h
 dec bx
 jmp nexts
dones:
 ret

 CODE ENDS 
 END START