АВМиС - бывшее АПЭВМ / Shpora / 39

txt segment'code'
assume cs:txt,ds:dta,es:dta,ss:stk
begin:
mov ax,dta
mov ds,ax
mov ax,zseg
mov dx,es
sub ax,dx
mov bx,ax
mov ah,4ah
int 21h
push ds
pop es
mov ah,4bh
mov al,0
lea bx,param
lea dx,child
int 21h
mov ah,4ch
int 21h
txt ends
dta segment 'data'
param dw envseg
dd 0
dd fcb1
dd fcb2
fcb1 db 0
fcb2 db 0
child1 db 'makefile.exe',0
dta ends
stk segment 'stack'
dw 256 dup(?)
stk ends
envseg segment
name_file db 'text.txt$',0
envseg ends
zseg segment 'zseg'
zseg ends
end begin

dta segment 'data'
name db 30 dup (?)
dta ends
stk segment 'stack'
dw 100 dup(?)
stk ends
txt segment 'code'
assume cs:txt,ds:dta,es:dta,ss:stk
my_proc proc
mov ax, dta
mov ds,ax
mov ax,es:2ch
mov es,ax
mov bx,0
xor si,si
xor di,di
cld
replay:
mov al,byte ptr es:[si+bx]
cmp al,0
je exit
mov name[di],al
inc bx
inc di
jmp replay
exit:
mov ah,4ch
int 21h
txt ends
end my_proc