exam702.asm

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

;从自然数1开始累加，直到累加和大于500为止，统计
;被累加的自然数的个数，并把统计的个数送到单元n中，
;把累加和送到单元sum单元。
data segment
     n dw ?
     sum dw ?
data ends
stack segment para stack 'stack'
      dw 200 dup(?)
stack ends
code segment
     assume cs:code, ds:data, ss:stack
start: mov ax, data
       mov ds, ax
       call main
       mov ax, n
       call outax
       call dpcrlf
       mov ax, sum
       call outax
       mov ah, 4ch
       int 21h

main proc far
     push ds
     mov ax, 0
     push ax
     mov ax, 0
     mov bx, 0
l: inc bx
   add ax, bx
   cmp ax, 500
   jbe l
   mov n, bx
   mov sum, ax
   pop ax
   pop ds
   ret
main endp

;显示子程序，入口参数ax
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, 39h    ;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          ;子程序结束

;回车、换行功能子程序
dpcrlf proc          ;具有默认属性的过程
       push ax              ;保护寄存器：顺序压入堆栈
       push dx
       mov dl, 0dh          ;回车控制字符为0dh
       mov ah, 2
       int 21h
       mov dl, 0ah          ;换行控制字符为0ah
       mov ah, 2
       int 21h
       pop dx               ;恢复寄存器：逆序弹出堆栈
       pop ax
       ret                  ;子程序返回
dpcrlf endp          ;过程结束

code ends
     end start