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

.model tiny
.code
org 100h
b:
jmp init
old9 dd 0
old2f dd 0
ind 0
new9 proc
in al,60h
cmp al,47h
jne nx
mov al,[40h:17h]
shl al,4
shr al,6
cmp al,3
jne nx
cmp ind,0
jne n
mov ind,1
jmp nx
n:
mov ind,0
nx:
cmp ind,1
jne ex
mov al,0b6h
out 43h,al
mov ax,11956
out 42h,al
mov al,ah
out 42h,al
in al,61h
or al,3
out al,61h
ex:
call old9
iret
new9 endp
fin $
init:
int 2fh
cmp al,0ffh
je exit
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-b+10h)/16
int 21h
mov ah,4ch
int 21h
end b