exam801.asm

我在汇编课上完成的一些作业（上机常见习题）和汇编课本上的几个例题

;编写计算N!的程序,用到递归算法。
dseg segment
     n db 3
     result dw ?
dseg ends
sseg segment para stack
     db 100 dup(?)
sseg ends
cseg segment
     assume cs:cseg, ds:dseg, ss:sseg
start: mov ax, dseg
       mov ds, ax
       mov al, n         ;取N
       call fact         ;求N!,即3!
       mov result, dx    ;3!的结果，保存到result
       mov ax, result
       call outax
       mov ah, 4ch
       int 21h           ;返回dos

;子程序fact,计算N!,al=N
fact proc near
     cmp al, 0
     jne instc
     mov dx, 1           ;dx<－0!
     ret
instc: push ax           ;N,N-1,N-2...2,1依次进栈
       dec al
       call fact;递归调用
       pop cx
       call nfmul        ;调用无符号乘法子程序nfmul
       ret
       fact endp         ;无符号字节乘法子程序nfmul

;cl为被乘数，dl为乘数，al为积
nfmul proc near
       mov al, cl
       mul dl
       mov dx, ax       ;乘积送dx
       ret
nfmul endp

outax  proc far      ;显示AX的内容
       push bx       ;保护现场
       push cx
       push dx
       mov bx, ax
       mov ch, 04    ;数据位计数器
rot:  mov cl, 4      ;数据位数有4bit
      rol bx, cl     ;将最高4bit移
      mov al, bl     ;到bl最低4bit
      and al, 0fh    ;并取出送到al
      add al, 30h    ;转换为ASCII码
      cmp al, 3ah    ;al>'9'?
      jb print       ;是'0' ~ '9'转
      add al,07      ;是'A' ~ 'F'再加7
print:  mov ah, 02
        mov dl, al
        int 21h      ;显示al字符
        dec ch       ;四位已经显示完没?
        jnz rot      ;还没有，转ROT
        pop dx       ;恢复现场
        pop cx
        pop bx
        ret          ;返回
outax  endp          ;子程序结束

cseg ends
     end start