kcsj.asm

来自「我用汇编语言编写的程序 能够实现文件的复制删除读出显示等功能」· 汇编 代码 · 共 45 行

include kcsj.mac
.model small
.386
.stack 200h
extrn prog1:far,prog2:far,prog3:far
.data
menu db 30 dup(' '),'1.文件管理',0ah,0dh
     db 30 dup(' '),'2.学生成绩管理',0ah,0dh
     db 30 dup(' '),'3.通讯录管理',0ah,0dh
     db 30 dup(' '),'4.返回主界面',0ah,0dh
     db 30 dup(' '),'请选择(1~4):','$'

.code 
main proc near
     init      ;初始化
    call mainshow
 L1:mov ah,1
    int 21h
    cmp al,'1'
    je rot1
    cmp al,'2'
    je rot2
    cmp al,'3'
    je rot3
    jmp exit
  rot1:call far ptr prog1
       call mainshow
       jmp L1
  rot2:call far ptr prog2
       call mainshow
       jmp L1
  rot3:call far ptr prog3
       call mainshow
       jmp L1
  exit:mov ax,4c00h
       int 21h
 main endp

mainshow proc near    ;显示主菜单
scroll 0
cursor 10,0
strdisp menu
ret
mainshow endp
end main