汇编语言学习12：模块化程序设计

Asiram_

已于 2023-12-13 11:57:45 修改

阅读量181

点赞数 6

分类专栏：汇编语言学习文章标签：学习

于 2023-12-12 18:20:33 首次发布

本文链接：https://blog.csdn.net/qq_35933041/article/details/134938495

版权

汇编语言学习专栏收录该内容

18 篇文章 3 订阅

订阅专栏

随着汇编程序的进一步复杂化，我们可以将多个汇编文件一起汇编，每个文件称作一个模块，并且在不同的模块之间交换数据，以在实现更加庞大和复杂的功能同时依然保持可读性。

另外，输入/输出是程序最重要的部分之一。在之前我们已经学习了一小部分通过DOS中断实现标准I/O的指令。经过高级语言特性的进一步拓展，汇编语言可以实现更加复杂的I/O。

模块化程序设计

源程序文件的包含

MASM汇编程序允许把源程序放在几个不同的文本文件中，在汇编时通过包含伪指令INCLUDE结合成一体。即：

include 文件名

文件名必须符合DOS命名规范。对于文件的后缀没有明确规定，但一般默认为ASM,MAC（宏定义库）或INC（包含文件）。文件名可以包含路径。当没有指定路径时，MASM会在以下三个路径查找：

INCLUDE伪指令进行汇编时，会将它指定的文本文件内容插入到伪指令所在的位置进行同时汇编。

下面给出一个多模块同时汇编的例子：将输入的数据按照升序输出。最多输入100个数据，每个数据都是无符号字节常量。

分析：常见的DOS输出应该汇编为宏，保存在宏定义库中，方便其他文件共享。另外设计处理数据输入和输出的子程序保存在源文件文件中。主程序则主要提供入口参数和出口参数。

; 宏定义库 MACRO.mac
dispchar macro char
    mov dl,char
    mov ah,2
    int 21h
    endm
dispmsg macro msg
    mov dx,offset msg
    mov ah,9 
    int 21h
endm

; 主程序文件
include MACRO.mac
.model small
.stack
.data
msg1 db 'Please enter the number(XX):',13,10,'$'
msg2 db 'The number sentered are:',13,10,'$'
msg3 db 'The sorting result(ascending):',13,10,'$'
crlf db 13,10,'$'
maxcount = 100
count dw ?
buf db maxcount dup(?)
.code
.startup
dispmsg msg1
mov bx,offset buf
call input
.if cx!=0
mov count,cx
dispmsg crlf
dispmsg msg2
mov bx,offset buf
mov cx,count
start2:mov al,[bx]
    call aldisp
    disp char','
    inc bx
    loop start2
    dispmsg crlf
    mov bx offset buf
mov cx,cunt
call sorting
dispmsg msg3
mov bx,offset buf
mov cx,count
start3: mov al,[bx]
call aldisp
disp char','
inc bx
loop start3
dispmsg crlf
.endif
start4: .exit 0
include minproc.asm
    end

;minproc.asm子程序实现文件
aldisp proc
    push ax
    push dx
    push ax
    mov dl,al
    shr dl,1
    shr dl,1
    shr dl,1
    shr dl,1
    or dl,30h
    cmp dl,39h
    jbe aldisp1
    add dl,7
aldisp1:mov ah,2
    int 21h
    pop dx
    and dl,0fh
    or dl,30h
    cmp dl,39h
    jbe aldisp2
    add dl,7
aldisp2:
    mov ah,2
    int 21h
    pop dx
    pop ax
    ret
aldisp endp
sorting proc
    .if cx!=0
    .if cx!=1
    push ax
    push dx
    push si
    push si,bx
    dec cx
outlp:mov dx,cx
    mov bx,si
inlp:mov al,[bx]
    cmp al,[bx+1]
    jna next
    xchg al,[bx+1]
    mov [bx],al
next:inc bx
    dec dx
    jnz inlp
    loop outlp
    pop si
    pop dx
    pop ax
    .endif
    .endif
sortend:ret
sorting endp

convert macro
    local input21,input22
    local input24,input25
    cmp dl,0
    je input25
    .if dl>9
    sub dl,7
    .endif
input21:and dl,0fh
    .if dh!=0
    .if dh>9
    sub dh,7
    .endif
input22:shl dh,1
    shl dh,1
    shl dh,1
    shl dh,1
    or dl,dh
input24:mov [bx],dl
    inc bx
    inc cx
input25: 
    endm

input proc
    push ax
    push dx
    xor cx,cx
input01:xor dx,dx
input02:mov ah,1
    int 21h
input10:cmp al,0dh
    je input30
    cmp al,' '
    je input20
    cmp al,','
    je input20
    cmp al,8
    je input17
    cmp al,'0'
    jb input17
    cmp al,'f'
    ja input17
    cmp al,'a'
    jb input11
    sub al,20h
    jmp input12
input11:cmp al,'f'
    ja input17
    cmp al,'a'
    ja input12
    cmp al,'9'
    ja input17
input12:
    cmp dl,0
    jne input13
    mov dl,al
    jmp input02
input13:
    cmp dh,0
    jne input17
    mov dh,dl
    mov dl,al
    jmp input02
input17:
    mov dl,7
    mov ah,2
    int 21h
    mov dl,'?'
    mov ah,2
    int 21h
    jmp input01
input20:
    convert
    pop dx
    pop ax
    ret 
input endp

利用目标文件的连接开发源程序，需要注意几个问题。