[交流] 【转帖】汇编语言程序设计

; 本程序通过编译，运行正确
Code  Segment
   Assume CS:Code,DS:Code
BUFA  db    76,69,84,73,88,99,63,100,80,59,48,37,26,15,04
ElementsA equ  ($-BUFA)/Type BUFA ;元素个数
EVEN
BUFB  db    67,69,84,73,88,123,63,100,80,59,48,37,26,51,40,255,110,120,130,150
ElementsB equ  ($-BUFB)/Type BUFB ;元素个数
BUFC  db    15 dup(?) ;目标字符串数据块
Start:   push cs
   pop  ds
   push cs
   pop  es ;使数据段、附加段与代码段同段
   cld ;清方向标志，使变址寄存器增值
   lea   si,BUFA ; BUFA变量地址
   mov   cx,ElementsA ;BUFA数组元素个数
   lea   di,BUFC ; BUFC变量地址
L1:   lodsb ;读入BUFA中的一个元素
   push cx ;入栈保存循环次数
   lea  bx,BUFB ;BUFB变量地址
   mov   cx,ElementsA ;BUFA数组元素个数
Compare: cmp  al,[bx] ;相同？
   jnz  $+3 ;不相同，比较下一个元素
   stosb ;保存相同元素至BUFC数组
   inc  bx ;下一个元素
   loop Compare
   pop  cx ;出栈，恢复外层循环次数
   loop L1
Exit_Proc: mov  ah,4ch ;结束程序
   int  21h
Code  ENDS
   END   Start ;编译到此结束