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

.model tiny
.code
org 100h
b:
jmp init
old9 dd 0
old13 dd 0
new9 proc
in al,60h
cmp al,44h
je nx
call old9
jmp exit
nx:
in al,21h
or al,64
out 21h,al
exit:
iret
new9 endp
new13 proc
cmp ah,2
je ex
cmp ah,5
je ex
cmp ah,11h
je ex
call old13
ex:
iret
new13 endp
fin $
init:
mov ax,3509h
int 21h
mov word ptr old9,bx
mov word ptr old9+2,es
mov ax,2509h
lea dx,new9
int 21h
....
mov ax,3100h
mov dx,(fin-b+10h)/16
int 21h
mov ah,4ch
int 21h
end b