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

.model tiny
.code
org 100h
b:
jmp init
old9 dd 0
ms db 'hi$'
len equ $-ms
fin equ $-b
new9 proc
mov al,[40h:17h]
shl al,5
shr al,5
cmp al,5
jne ex
cmp al,6
jne ex
mov ah,13h
mov al,0
mov cx,len
mov bl,46h
mov dx,ffh
lea es:bp,ms
int 10h
ex:
iret
new9 endp
init:
mov ax,3509h
int 21h
mov word ptr old9,bx
mov word ptr old9+2,es
mov ax,seg new9
mov ds,ax
mov ax,2509h
lea dx,new9
int 21h
mov ax,3100h
mov dx,(fin+10h)/16
int 21h
mov ah,4ch
int 21h
end b