org     100h

        mov     ah,4Ah                  ; resize memory block
        mov     bx,19000h shr 4         ; only memory needed for .com
        int     21h

; now set up the pointer to command line in the parameters block

        mov     word [cmdline],_command
        mov     word [cmdline+2],ds

; we are ready to execute the program now

        mov     ax,4B00h                ; load and execute program
        mov     dx,_program             ; ASCIIZ path of program
        mov     bx,params               ; parameter block
        int     21h

        int     20h                     ; exit program


_program db 'c:\dos\ctmouse.exe',0
_command db 0                           ; length of command line
         db 13                          ; must end with CR character

params:
 environment dw 0       ; segment of environment, 0 means to use parent's one
 cmdline dd ?           ; pointer to command line
 default_fcb1 dd 0      ; pointers to file control blocks
 default_fcb2 dd 0       
    

Can i help me ?

org 100h
start:
        push    0
        pop     ds
        mov     ax, word[ds:0008h*4]
        mov     bx, word[ds:0008h*4+2]
        mov     word[cs:int08], ax
        mov     word[cs:int08+2], bx
        push    cs cs
        pop     ds es
        push    ds
        mov     bx, ds
        dec     bx
        mov     ds, bx
        mov     bx, [ds:03]
        sub     bx, (vend-task+15)/16+1
        pop     ds
        mov     ah, 4ah
        int     21h
        mov     ah, 48h
        mov     bx, (vend-task+15)/16
        int     21h
        mov     es, ax
        push    cs
        pop     ds
        xor     di, di
        mov     si, task
        mov     cx, vend-task
        rep     movsb
        mov     ax, es
        dec     ax
        mov     es, ax
        mov     word[es:01], 8
        push    0
        pop     ds
        cli
        inc     ax
        mov     word[ds:0008h*4], 0
        mov     word[ds:0008h*4+2], ax
        sti
        ret
task:
        pushf
        push    ax bx cx dx ds es di si
        push    0b800h
        pop     es
        mov     di, 60*2
        mov     ah, 4fh
        mov     al, 0c9h
        stosw
        mov     al, 0cdh
        mov     cx, 16
        rep     stosw
        mov     al, '[';0bbh
        stosw
        mov     al, 'X'
        stosw
        mov     al, ']'
        stosw
        mov     di, ((80*1)*2)+(60*2)
        mov     al, 0bah
        stosw  
        mov     al, 20h
        mov     cx, 7
        rep     stosw
        mov     ah, 4fh
        mov     al, 'T'
        stosw
        mov     al, 'A'
        stosw
        mov     al, 'S'
        stosw
        mov     al, 'K'
        stosw
        mov     al, ' '
        stosw
        mov     al, '1'
        stosw
        mov     cx, 5
        mov     al, 20h
        rep     stosw
        mov     al, 0bah
        stosw
        mov     di, ((80*2)*2)+(60*2);(80*3)+(60*3)+20
        mov     al, 0bah
        stosw
        mov     al, 20h
        mov     cx, 6
        rep     stosw
        mov     ah, 4fh
        mov     al, 'W'
        stosw
        mov     al, 'I'
        stosw
        mov     al, 'N'
        stosw
        mov     al, 'D'
        stosw
        mov     al, 'O'
        stosw
        mov     al, 'W'
        stosw
        mov     al, ' '
        stosw
        mov     al, '1'
        stosw
        mov     al, '!'
        stosw
        mov     cx, 3
        mov     al, 20h
        rep     stosw
        mov     al, 0bah
        stosw
        mov     di, ((80*3)*2)+(60*2)
        mov     al, 0c8h
        stosw
        mov     cx, 18
        mov     al, 0cdh
        rep     stosw
        mov     al, 0bch
        stosw 
        mov     ax, 0001h
        int     33h
        mov     ax, 0003h
        int     33h
        cmp     cx, 616
        jb      nomouse
        cmp     cx, 640
        ja      nomouse
        cmp     dx, 8
        ja      nomouse
        cmp     bx, 1
        jnz     nomouse
        jmp     killint
nomouse:
        pop     si di es ds dx cx bx ax
        popf
int08old:
db      0eah
int08   dw      0, 0
killint:
        mov     ax, 0002h
        int     33h
        pop     si di es ds dx cx bx ax
        push    ax bx ds
        call    cls
        mov     ax, word[cs:int08-task]
        mov     bx, word[cs: (int08-task)+2]
        cli
        push    0
        pop     ds
        mov     word[ds:0008h*4], ax
        mov     word[ds:0008h*4+2], bx
        sti
        pop     ds bx ax
        popf
        jmp     int08old
cls:
        mov     di, (80*5)+(60*3)+20
        call    drawline
        mov     di, (80*3)+(60*3)+20
        call    drawline
        mov     di, (60*2)+(80*2)
        call    drawline
        mov     di, (60*2)
        call    drawline
        ret
drawline:
        push    es
        push    0b800h
        pop     es
        mov     cx, 20
        mov     ax, 0700h
        rep     stosw
        pop     es
        ret
vend: