сделал но программа..что то делает не то..
DAdata1 segment 'Data'
Before db 'Ishodnaia stroka: ',0Ah,0Dh,'$'
After db 'Preobrazovannaia stroka: ',0Ah,0Dh,'$'
Source db '12345678',0Ah,0Dh,'$'
DAdata1 ends
DAdata2 segment 'Data'
Dest db 'ABCDEFGH',0Ah,0Ah,0Dh,'$'
DAdata2 ends
DAstack segment 'Stack' stack
emptyspace dw 0,0,0,0
dw 256 dup(0)
DAstack ends
DAcode segment 'Code'
main proc
StartPoint:
assume cs: DAcode,ss: DAstack,ds: DAdata1,es: DAdata2
mov ax, DAdata1
mov ds, ax
mov ah, 09h
lea dx, Before
int 21h
lea dx, Source
int 21h
mov ax, DAdata2
mov ds, ax
mov ah, 09h
lea dx, Dest
int 21h
mov ax, DAdata1
mov ds, ax
lea si, Source+7
mov ax, DAdata2
mov es, ax
lea di, Dest+7
std ; cld
mov cx,4
rep movsb
mov ah, 09h
lea dx, After
int 21h
lea dx, Source
int 21h
mov ax, DAdata2
mov ds, ax
mov ah, 09h
lea dx, Dest
int 21h
MOV AX, 4C00H
Int 21H
Main EndP
DACode ends
End StartPoint