汇编语言程序设计：学生成绩单管理实验

DATAS SEGMENT
    ;此处输入数据段代码
    X DW ?
Y DB ?
FIND DW 0
    RANK DB 0
E_SIGN DB 0
    INBUF DB 10 DUP(' ')
    BUF1  DB 10 DUP(' ')
    BUF2  DB 10 DUP(' ')
    ZEROBUF DB 10 DUP(' ')
    MENU DB '     MENU     ',13,10
      DB ' ------------------------------------------- ',13,10
      DB '| 1.Create a student transcript;            |',13,10
      DB '| 2.Display the student transcript;         |',13,10
      DB '| 3.Sort the student transcript by mark;    |',13,10
      DB '| 4.Find student information by name;       |',13,10
      DB '| 5.Modify the student scores found;        |',13,10
      DB '| 6.Delete the student transcript;          |',13,10
      DB ' ------------------------------------------- ',13,10,'$'
    STR0 DB 'Please enter the function number(1~6):',13,10,'$'
    STR1 DB 'Input name:$'
    STR2 DB 'Input  ID :$'
    STR3 DB 'Input mark:$'
    STR4 DB 'Continue?(Y/N)',13,10,'$'
    STR5 DB 'NAME ID   MARK RANK',13,10,'$'
    STRN DB 'You have not assigned a student yet!',13,10,'$'
    KG DB ' $'
    WARN DB 'Are you sure you want to delete this transcript?',13,10,'(Press ENTER to continue)',13,10,'$'
    WARN2 DB 'Are you sure you want to modify?',13,10,'(Press ENTER to continue)',13,10,'$'

    OLDSCORE DB 'The old score:$'
    NEWSCORE DB 'The new score:$'
    CRLF DB 13,10,'$'
   
    E_M DB 'Input characters can only be Numbers:0~9!',13,10,'$'
    E_S0 DB 'Sorry! We only have functions 1~4!',13,10,'$'
    E_S1 DB 'You can just input Y/y or N/n !',13,10,'$'
    E_S2 DB 'You can only press the number key or “ENTER” to end the input!',13,10,'$'
    GM_E DB 'Score range: 0~100!',13,10,'$'
    SC_S DB 'Sorting success!',13,10,'(You can check for success with function number 2)',13,10,'$'
    NULL_S DB 'You have not entered the student information!',13,10,'$'
    F_TS DB 'Please enter the name or ID you are looking for:',13,10,'$'
    D_TS DB 'Deleting completed!',13,10,'$'
    QVXIAO DB 'The delete program has been canceled!',13,10,'$'
    QVXIAO2 DB 'The modify program has been canceled!',13,10,'$'
    FOUND DB 'Found it!',13,10,'$'
    NOFOUND DB  'Not found!',13,10,'$'
    STUDENT STRUC
    ID DB 10 DUP(' ')
    SNAME DB 10 DUP(' ')
    MARK DW 0
    RANK DB 0
    STUDENT ENDS
    STU STUDENT 10 DUP(<>)
    STU_SIZE DW 23
    STU_NUM DB 0
;-----------------------------
DIS_M MACRO MARK
LOCAL AGAIN, LOP
PUSH AX