本人珍藏汇编子程序

汇编实验终于考完了，感觉终不负辛苦的付出，汇编子程序实际编程中感觉作用挺大的，收集了一下这个学期以来积累的子程序贴出来，留作纪念。

希望前辈不吝赐教。

 

二进制形式输出，显示结果固定为十六位

;设（bx）=7fffh，则输出格式为0111111111111111b，后面的大字字母b表示二进制形式，显示结果固定为十六位。

;入口参数bx,出口参数bx

dispbxb proc near     
        mov cx,16
 next1: rol bx,1
        jc next
        mov dl,30h
        jmp outp
    next:mov dl,31h
  outp:mov ah,2
        int 21h
        loop next1
        mov dl,'b' ;显示字母“b”
        mov ah,2
        int 21h
        ret
dispbxb endp

 

 

; 按十进制形式输出一个字（不固定位输出，如255只输出255，不会输出0025）

; 按十进制形式输出一个字

;入口参数bx,出口参数bx

;通过2号中断输出

dispbxd proc near
        mov si,10
        xor cx,cx
              mov ax,bx
  next:mov dx,0
        div si
        push dx
        inc cx
        cmp ax,0  ;商为0则完成转换
        jnz next
next2:pop dx
        add dl,30h
        mov ah,2
        int 21h
        loop next2
        ret
dispbxd  endp

 

; 按十六进制形式输出一个字，固定四位输出

;入口参数bx,出口参数bx

dispbxh  proc near
        mov  cl,4
        mov  ch,4
next:   rol  bx,cl   ;高低半个字节交换
        mov  al,bl
        and  al,0fh  ;让al只保留借低位的值（bx的高位）
        add  al,30h
        cmp  al,3ah
        jl   next2
        add  al,07h   ;是a～f，要多加7
next2:mov  dl,al
        mov  ah,02h
        int  21h
        dec  ch
        cmp  ch,0
        ja   next
        mov dl,'h' ;显示字母“h”
        mov ah,2
        int 21h
        ret
dispbxh  endp

 

Decibin proc near

;通过键盘输入一个数字字符串，可以多位,回车结束输入

;出口参数 BX表示输出的真值

Mov bx,0

Newchar:

Mov ah,1

Int 21h

Sub al,30h

Jl exit

Cmp al,9d

Jg exit

Cbw

Xchg ax,bx

Mov cx,10d

Mul cx

Xchg ax,bx

Add bx,ax

Jmp newchar

Exit:

Ret

Decibin endp

 

 

;模板

data   segment       ; 定义数据段

data   ends

code   segment       ; 定义代码段

   assume cs:code, ds:data

start:

   mov   ax, data

   mov   ds, ax

 

MOV   AX, 4C00H

INT   21H

code   ends

   end   start

 

;在数据段定义如下字符串传递参数 

    n dw ?                      ;存放元素个数

     DataArray dw 80 dup(?),'$'

;冒泡法排序

f proc near

     mov cx,n

     dec cx                        ;cx=n-1, 为外层循环,并作为当前比较的最大下标

ag1:  xor bx,bx                     ;bx作为内层循环的计数

     lea si,DataArray

ag3:  mov ax,[si]

     cmp ax,[si+2]

     jbe ag2

     xchg ax,[si+2]                ;[si]>[si+2]则交换

     mov [si],ax

ag2:  inc bx                        ;每比较一次bx增1

     cmp bx,cx                     ;比较bx是否等于cx

     je  ag4

     add si,2d                     ;bx比cx小则继续比较, si后移两个字节

     jmp ag3                       ;跳转到ag3, 比较下两个元素

ag4:  loop ag1                      ;跳转到ag1, 进行cx=cx-1层的循环

     mov cx,n                      ;共输出n个元素

     mov bx,10d

     lea si,DataArray

;输出结果

ag5:  mov ax,[si]

     add si,2d                     ;将si指向下一个元素

     xor di,di                     ;di为堆栈元素的计数,即一个数值十进制的位数

ag6:  xor dx,dx

     div bx

     add dx,'0'                    ;得到余数对应的ASCII码

     push dx                       ;压栈

     inc di

     cmp ax,0

     jnz ag6                       ;当商不为0时,继续求余数

     mov ah,02h

ag7:  pop dx                        ;出栈

     int 21h

     dec di                        ;di计数

     cmp di,0

     jnz ag7                       ;输出字符数小于di时循环继续

     mov dl,' '

     int 21h                       ;每个元素相隔一个空格

     loop ag5                      ;输出下一个元素

     ret

f endp

 

 ;判断是否为闰年子程序,是闰年则ax=1，否则ax=0
      ;ax 传入十进制年份
      leap proc                 

　　　　　　　  mov dx,0
            mov bx,4
            mov cx,ax
            div bx
            cmp dx,0
            jnz end0
            mov dx,0
            mov ax,cx
            mov bx,100
            div bx
            cmp dx,0
            jnz end1
            mov ax,cx
            mov dx,0
            mov bx,400
            cmp dx,0
            jz end1
         end0: mov ax,0
              jmp next
         end1:mov ax,1
         next:
         ret
      leap endp