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

.model tiny
.code
org 100h
b:
jmp init
old9 dd 0
s dw 0
s1 dw 0
new9 proc
in al,60h
cmp al,3bh
jne ex
mov al,[40h:17h]
shl al,5
shr al,5
cmp al,5
jne ex
cmp al,6
jne ex
xor si,si
xor di,di
mov cx,41
p:
push cx
mov cx,26
p1:
push cx
mov ah,2
mov bh,0
dec cl
mov dh,cl
mov cx,si
mov dl,cl
int 10h
mov ah,8
mov bh,0
int 10h
mov s,ax
mov ah,2
mov bh,0
dec cl
mov dh,cl
mov cx,si
add cx,40
mov dl,cl
int 10h
mov ah,8
mov bh,0
int 10h
mov s1,ax
mov bl,ah
mov ah,9
mov cx,1
int 10h
mov ah,2
dec cl
mov dh,cl
mov cx,si
mov dl,cl
int 10h
mov ax,s1
mov bl,ah
mov ah,9
mov cx,1
int 10h
pop cx
loop p1
pop cx
loop p
ex:
call cs:old9
ret
new9 endp
fin equ $-b
init:
int 2fh
mov ax,3509h
int 21h
mov word ptr old9,bx
mov word ptr old9+2,es
mov ax, seg new9
mov ds,as
lea dx,new9
mov ax,2509h
int 21h
mov ax,3100h
mov dx,(fin+10h)/16
int 21h
mov ah,4ch
int 21h
end b