code         segment
; Резидент int 1CH
             org     100h
             assume  cs:code,ds:code
begin:       jmp     start
int_tim      label   dword
ip_tim       dw      ?
cs_tim       dw      ?
tik          db      ?
nch          db      0
process:
             cli
             inc     cs:tik
             cmp     cs:tik,10
             jl      a1
             push    es
             push    ax
             mov     ax,0b800h
             mov     es,ax
             xor     al,al
             mov     cs:tik,al
             inc     cs:nch
             mov     al,cs:nch
             mov     es:[0],al
             mov     al,1eh
             mov     es:[1],al
             pop     ax
             pop     es
a1:          sti
             push    ax
             pop     ax
             iret
start:       mov     ax,351ch      ; Инсталлятор
             int     21h
             mov     ip_tim,bx
             mov     cs_tim,es
             mov     ax,251ch
             lea     dx,process
             int     21h
             mov     al,0
             mov     tik,al
             lea     dx,start
             int     27h
code         ends
             end     begin