数据块间的数据传送程序

数据块移动。将一个连续存储单元的数据移动到另一个连续的存储单元，并找出其中零的个数并显示出来。（注意在编程的时候要确保数据块位置的不确定性）

 1 DATA    SEGMENT
 2 ORG    $+20H
 3 VA    DB    '2014001002003004'    ;数据块
 4 LEN    EQU    $-VA            ;数据块长度
 5 V1    DW    VA            ;源块首址
 6 V2    DW    VA+1            ;目的块首址
 7 DATA    ENDS
 8 STACK1    SEGMENT    STACK
 9     DW    20H    DUP(0)
10 STACK1    ENDS
11 CODE    SEGMENT
12     ASSUME    CS:CODE,DS:DATA,SS:STACK1
13 START:    MOV    AX,DATA
14     MOV    DS,AX
15     MOV    BL,30H            ;设置计数器（计0个数）
16     MOV    CX,LEN            ;设置计数器（传送条件）
17     MOV    SI,V1            ;SI指向源块首址
18     MOV    DI,V2            ;DI指向目的块首址
19     CMP    SI,DI            ;比较两块首址，选择不同传送方式
20     JA    J2
21     ADD    SI,LEN-1
22     ADD    DI,LEN-1
23 J1:    MOV    AL,[SI]
24     MOV    [DI],AL
25     CMP    AL,30H
26     JNE    J01
27     INC    BL
28 J01:    DEC    SI
29     DEC    DI
30     DEC    CX
31     JNE    J1
32     JMP    DONE
33 J2:    MOV    AL,[SI]
34     MOV    [DI],AL
35     CMP    AL,30H
36     JNE    J02
37     INC    BL
38 J02:    INC    SI
39     INC    DI
40     DEC    CX
41     JNE    J2
42 DONE:    MOV    AH,2            ;显示0个数
43     MOV    DL,BL
44     INT    21H
45     MOV    AH,4CH            ;return DOS
46     INT    21H
47 CODE    ENDS
48     END    START

View Code

两种传送方式分别对应两种情况。