aaaa.txt

汇编语言

DATA SEGMENT

input       db  0ah,0dh,'if you want to quit ,please press Q/q! '
            db 0ah,0dh,'press other key to copy from buf1 to buf2',0ah,0dh,' $'
inputmess   db 0ah,0dh,'please input buf1:',0ah,0dh,'$'
CHGLINE0 DB  0AH,0DH,'BUF1:'
buf    db 100                    ;字符缓冲区
       db ?
       db 100 dup(0)
outputmess db 0ah,0dh,'already copy from BUF1 into BUF2 :'
           db  0ah,0dh,'BUF1:$'
BUF1    DB 100 dup(0)

chgline    db 0ah,0dh,'BUF2:'
BUF2    DB 100  DUP(?)



DATA    ENDS
STACK1 SEGMENT STACK
      DB 20 DUP(?)
STACK1 ENDS
CODE SEGMENT
     ASSUME DS:DATA,SS:STACK1,CS:CODE
START:
     MOV AX,DATA
     MOV DS,AX
l0:  

        lea dx,input              ;输入提示
     mov ah,9
     int 21h
     mov ah,08h
		int 21h  
     cmp al,'Q'
     jE   exit
     cmp al,'q'
     je   exit
     lea dx,inputmess
		mov ah,9
		int 21h
      lea dx,buf
      mov ah,10
      int 21h
      lea di,buf+2
      lea si,buf1
      mov cx,0
next:  mov dl,[di]
      inc di

      cmp dl,0dh
      jne aa
      
      jmp end0
aa:   
      
      mov [si],dl
      inc si
      inc cx
      jmp next
         

      
      
exit: MOV  AH,4CH
      INT 21H
end0: mov  byte ptr [si],'$'
          inc cx
          mov bp,cx	
     MOV SI,OFFSET BUF1   ;建立源地址指针
     MOV DI,OFFSET BUF2   ;建立目标地址指针
     MOV CX,bp         ;字节数送入CX寄存器
     
L1:  MOV AL,[SI]          ; 取源数据一个字节送入AL中
     MOV [DI],AL          ;将源数据送入目标地址单元中
     INC SI
     INC DI
     DEC CX
     JNZ L1               ;判断是否传送完毕
     LEA DX,OUTPUTMESS
     MOV AH,9
     INT 21H
         lea dx,buf1
         mov ah,9
          int 21h
         lea dx,chgline
         mov ah,9
          int 21h
        
         
     JMP l0
CODE ENDS
     END START