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

cseg segment public 'code'
assume cs:cseg, ds:dta, ss:stk
start proc far
mov ax, dta
mov ds, ax
mov ax, es
mov bx, Zseg
sub bx, ax
mov ah, 4ah
int 21h
mov ah, 48h
mov bx,256/16+1
int 21h
mov segoverl, ax
mov ax, dta
mov es, ax
lea bx, blkpr
mov ax, segoverl
mov [bx], ax
mov [bx+2], ax
lea dx, flnm
mov ah, 4bh
mov al, 3
int 21h
call dw ord ptr offovrl
mov ah, 4ch
int 21h
start endp
cseg ends
stk segment stack 'stack'
dw 128 dup (?)
stk ends
dta segment public 'data'
offovrl dw 0
segoverl dw ?
flnm db '1.asm',0
blkpr dd 0
dta ends
Zseg segment
Zseg ends
end start
cseg segment public 'code'
assume cs:cseg, ds:dseg, ss:stk
overl proc far
push ds
mov ax, dseg
mov ds, ax
mov ah, 9
lea dx, mesg
int 21h
pop ds
ret
overl endp
cseg ends
stk segment stack 'stack'
dw 128 dup (?)
stk ends
dseg segment public 'data'
mesg db 'working$'
dseg ends
end