assume cs:code, ss:stack
stack segment
     db 100H dup (?)
stack ends
code  segment
      org 100h
start:
      jmp beg
menu  db 10,13,10,13,'           MENU          '
      db 10,13
      db 10,13,'           1. FILE'
      db 10,13,'           2. EDIT'
      db 10,13,'           3. COMPILE'
      db 10,13,'           4. RUN'
      db 10,13,'           5. DEBUG'
      db 10,13,'           0. QUIT'
      db 10,13
      db 10,13,'   please choose one of 0~4:','$'
codetab dw sub1, sub2, sub3, sub4, sub5

beg:
      push cs
      pop ds     ;设置数据段
disp0:
      lea dx,menu ;DS:DX＝待输出字符的地址
      mov ah,9
      int 21h     ;调用21h中断的第9号功能，显示以'$'结束的字符串

      mov ah,1
      int 21h     ;调用21h中断的第1号功能，从键盘读入字符，AL保存读入字符的ASCII码
      
      sub al,30h
      cmp al,0
      je exit

      mov bl,al
      mov bh,0
      add bx,bx
      sub bx,2
      call word ptr codetab[bx]
      jmp disp0

exit:
      mov ah,4ch
      int 21h



sub1  proc near
      jmp sub1_disp
      file db 10,13,'   --new, open, save, print files.---','$',10,13
sub1_disp:
      lea dx,file
      mov ah,9
      int 21h     ;调用21h中断的第9号功能，显示以'$'结束的字符串
      ret
sub1  endp

sub2  proc near
      jmp sub2_disp
      edit db 10,13,'   --copy, cut, paste the text.---','$',10,13
sub2_disp:
      lea dx,edit
      mov ah,9
      int 21h     ;调用21h中断的第9号功能，显示以'$'结束的字符串
      ret
sub2  endp

sub3  proc near
      jmp sub3_disp
      compile db 10,13,'   --compile the source file, then get target file.---','$',10,13
sub3_disp:
      lea dx,compile
      mov ah,9
      int 21h     ;调用21h中断的第9号功能，显示以'$'结束的字符串
      ret
sub3  endp

sub4  proc near
      jmp sub4_disp
      run db 10,13,'   --run, run, run, cannot stop.---','$',10,13
sub4_disp:
      lea dx,run
      mov ah,9
      int 21h     ;调用21h中断的第9号功能，显示以'$'结束的字符串
      ret
sub4  endp

sub5  proc near
      jmp sub5_disp
      debug db 10,13,'   --debug ---','$',10,13
sub5_disp:
      lea dx, debug
      mov ah,9
      int 21h     ;调用21h中断的第9号功能，显示以'$'结束的字符串
      ret
sub5  endp

code  ends
      end start