assume cs:code
code segment
da  db 200h dup(?)
 int7c:jmp short mai
     tab dw red,writ
     mai:  push bx
       push ax
       mov ax,dx
       mov dx,0
       mov bx,18
       div bx
       inc dx
       push dx
       mov bx,80
       div bx
       mov ch, dl
       mov dh,al
       mov dl,0
       pop ax
       mov cl,al
       pop ax
       pop bx
       mov si,ax
       push cx
       mov cl,8
       shr si,cl
       pop cx
       call tab[si]
       
       iret
red:int 13h
     ret
writ:int 13h
     ret
int7cend:nop
 start:mov ax,cs
       mov ds,ax
       mov ax,0
       mov es,ax
       mov di,200h
       mov si,offset int7c
       mov cx,offset int7cend-offset int7c
       mov word ptr es:[7ch*4],200h
       mov word ptr es:[7ch*4+2],0
       cld
       rep movsb

       mov ax,4c00h
       int 21h
code ends
end start