.286
.model small, stdcall
.stack 128
.data
   logo db '                  MM MM    AAAA  TTTTTTTTT RRRRRR    I  X      X                ',\
                  '                 M  M  M  A    A     T     R     R   I   X    X                 ',\
                  '                 M  M  M  A    A     T     R     R   I    X  X                  ',\
                  '                 M  M  M  AAAAAA     T     R R R R   I     XX                   ',\
                  '                 M  M  M  A    A     T     R  R      I    X  X                  ',\
                  '                 M  M  M  A    A     T     R   R     I   X    X                 ',\   
                  '                 M     M  A    A     T     R     R   I  X      X ', '$'

   matr db '4   4   3   5   6   3   5    8    3    7       0   3   3    4     1     4   6   5 7 8 9 3 4 1   3    4  5  6   3  4    2  4   6   7   8  6  4   2   3       4   5   6   3   6   3   6   3   6   2   6   7   8   2   4 1   3   4   2   5 6   7   2  5   6 7 2 6 2', '$'
.code

Clear    proc
   pusha
   mov  ah,  6
   mov  al,  0
   mov  bh,  0Ah
   mov  cx,  0
   mov  dh,  24
   mov  dl,  79
   int  10h
   popa
   ret
Clear    endp

Delay    proc    ticks:word
   push  si
   mov   si,    ticks    
   mov   ah,    0
   int   1ah
   mov   bx,    dx    
   add   bx,    si    
Delay1:
   int   1ah     
   cmp   dx,    bx     
   jne   Delay1
   pop   si
   ret
Delay    endp

Scanc  proc
   pusha
   in    al,    60h
   cmp    al,    01h
   je    @exit
   popa
   ret
Scanc  endp

Main proc NEAR
   mov  ax,  @data
   mov  ds,  ax
     
   mov  ah,  0
   mov  ah,  3
   int  10h

   call    Clear

   mov  ah,  2
   mov  bh,  0
   mov  dh,  5
   mov  dl,  0
   int  10h

   mov    ah,  9
   lea  dx,  logo
   int  21h

   mov  ah,  8
   int  21h

   call    Clear

@mtr:
   call    Scanc
   call  Delay,  2
   mov  ah,  9
   lea  dx,  matr
   int  21h
   jmp    @mtr

@exit:
    mov  ah,  8
   int  21h
   mov  ah,  4ch
   int  21h
Main endp
end Main