assume cs:code
     code segment
start:
     mov ax,0
     mov es,ax
     mov ax,cs
     mov ds,ax
     mov di,200h
     mov si,offset int7c
     mov cx,offset int7cend-offset int7c
     cld
     rep movsb 
     mov word ptr es:[1F0H],200H
     mov word ptr es:[1F2H],0H
     mov ax,4c00h
     int 21h
int7c:jmp short go
table:dw sub1,sub2,sub3,sub4
   go:push bx
      cmp ah,3
      ja sret
      mov bl,ah
      mov bh,0
      add bx,bx
      add word ptr cs:202H[bx],1D8H
      call word ptr cs:202H[bx]
      sret:pop bx      
      iret
      mov ax,4c00h
      int 21h  
sub1:push bx 
     push cx 
     push es 
     mov bx,0b800h 
     mov es,bx 
     mov cx,2000 
     mov bx,0 
sub1s:mov byte ptr es:[bx],' ' 
     add bx,2 
     loop sub1s 
     pop es 
     pop cx 
     pop bx 
     ret       
sub2:push ax 
     push bx 
     push cx 
     push es 
     mov bx,0b800h 
     mov es,bx 
     mov bx,1 
     mov cx,2000 
sub2s:and byte ptr es:[bx],11110000b 
     or es:[bx],al 
     add bx,2 
     loop sub2s 
     pop es 
     pop cx 
     pop bx 
     pop ax 
     ret 
sub3:push ax 
     push bx 
     push cx 
     push es 
     mov bx,0b800h 
     mov es,bx 
     mov cl,4 
     shl al,cl 
     mov cx,2000 
     mov bx,1 
sub3s:and byte ptr es:[bx],00001111b 
     or es:[bx],al 
     add bx,2 
     loop sub3s 
     pop es 
     pop cx 
     pop bx 
     pop ax 
     ret        
sub4:push cx 
     push si 
     push di 
     push ds 
     push es 
     mov si,0b800h 
     mov es,si 
     mov ds,si 
     mov si,160 
     mov di,0 
     mov cx,24 
     cld 
sub4s:push cx 
     mov cx,160 
     rep movsb 
     pop cx 
     loop sub4s 
     mov cx,80 
     mov si,0 
sub4s2:mov byte ptr es:[si],' ' 
     add si,2 
     loop sub4s2 
     pop es 
     pop ds 
     pop di 
     pop si 
     pop cx 
     ret 
int7cend:nop
code ends
end start

用debug a命令 
测试测试清屏通过