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

.model small
.stack 100h
.data
ind db 0
ms db 'hello$'
old_9h dd 0
.code
b:
mov ax,@data
mov ds,ax
mov al,9
mov ah,35h
int 21h
mov word ptr old_9h,bx
mov word ptr old_9h+2,es
mov ax,2509h
lea dx,new_09
int 21h
ag:
add ax,1
adc dx,0
cmp ind,1
jne ag
push ds
mov dx,word ptr old_9h
mov ax,word ptr old_9h+2
mov ds,ax
mov ax,2509h
int 21h
pop ds
mov ah,4ch
int 21h
new_09 proc
push ax dx
in al,60h
cmp al,85h
jne exit
mov ah,9h
lea dx,ms
int 21h
mov ind,1
exit:
pop dx ax
jmp dword ptr old_9h
ret
new_09 endp
end b