1

好的，这是代码：

assume cs:code, ds:data
data segment
  sname db 'Some Name','$'
  len equ $-sname
  ascii db 'a'-'A'

data ends
code segment
start:
  mov ax,data
  mov ds,ax

  cld
  lea si,sname

  do_this:
    lodsb

    cmp al,61h
    jae lowercase

    uppercase:
      cmp si,len
      je the_end
      jmp continue

    lowercase:
      mov bl,ascii
      sub ax,bx

      mov ds:[si-1],al
      cmp si,len
      je the_end

  continue:
  loop do_this

  the_end:
  mov ax,0000
  lea dx,sname
  mov ah,09h
  int 21h

  mov ax,4c00h
  int 21h

code ends
end start

基本上它只是将字符串'sname'的所有小写字母转换为大写。我的问题是，我如何将此代码拆分为 2 个模块，其中一个将处理字符串打印部分。具体来说，我想要一个处理字符串转换为大写的 .asm 模块，以及一个处理：

  lea dx,sname
  mov ah,09h
  int 21h

我似乎找不到任何好的教程，所以如果你能指点我一些，将不胜感激，如果没有，一个如何将 2 个 .asm 模块放在一起的简单示例（需要哪些指令等） ） ， 会很好。

4

2 回答 2

3

好吧，您只需将要移动的任何代码和数据移动到不同的程序集文件并保留所有段定义。extrn然后使用and添加一些声明public：

文件 1.asm：

code segment

public convert
convert:
  ; code for the convert routine
  ret

code ends
end

文件 2.asm：

code segment

extrn convert:near
start:
  ; some code
  call convert
  ; some more code

code ends
end start

您可能需要正式定义子例程：

convert proc
  ; code for the convert routine
  ret
convert endp
于 2013-02-15T12:01:05.057 回答
2

在下方的顶部，.MODEL您将提供：

EXTRN     RANDOM:FAR

然后：

;
          .CODE
MAIN:
          .STARTUP
;
;     
          CALL      RANDOM 
;
;

在 Random.asm 中：

;
          .CODE   
          ASSUME    DS:RAND_DATA
;
RANDOM    PROC      FAR PUBLIC USES CX DX DS,
                    LOWER:WORD, UPPER:WORD
                                        ;FUNCTION RANDOM(LOWER,UPPER)
                                        ;SAVE REGISTERS (USES LIST)
          PUSHF                         ;SAVE FLAGS
          MOV       AX,SEG RAND_DATA    ;SET DS-REGISTER TO POINT
          MOV       DS,AX               ;TO LOCAL DATA SEGMENT
;
;
          POPF                         ;RESTORE FLAGS

          RET                          ;RETURN (RANDOM)
RANDOM    ENDP                         ;END RANDOM

一方面，我不是 ASM 的大师。所以试一试，让我知道。这是来自一个工作程序，但我必须做一些剪切和粘贴，并且有多个程序，所以让我知道它是如何工作的，我会尽力解决它。

于 2013-02-15T12:00:35.317 回答