汇编语言程序设计：[21]学生成绩管理

1、打开masm汇编编译程序，新建一个masm源文件脚本。

DATAS SEGMENT

    ;此处输入数据段代码  

DATAS ENDS

STACKS SEGMENT

    ;此处输入堆栈段代码

STACKS ENDS

CODES SEGMENT

    ASSUME CS:CODES,DS:DATAS,SS:STACKS

START:

    MOV AX,DATAS

    MOV DS,AX

    ;此处输入代码段代码

    MOV AH,4CH

    INT 21H

CODES ENDS

    END START

2、在正文中输入我们的程序代码，并将文件命名为scoremanange.asm

data    segment

mess1   db '      student grade management system',0DH,0AH,'xiaobo Assembly Language test for music',0DH,0AH,' ^Designed by 1wangxiaobo@163.com^',0DH,0AH,' ^Henan University of Economics and Law^',0DH,0AH,'$'

mess2   db '   this is main menu',0ah,0dh,'$'

mess3   db '    insert  (i)         please input:',0ah,0dh,'$' 

mess4   db '    modify  (m)         name    :',0ah,0dh,'$'

mess5   db '    delete  (d)         maths   :',0ah,0dh,'$'

mess6   db '    query   (q)         english :',0ah,0dh,'$'

mess7   db '    count   (c)         computer:',0ah,0dh,'$'

mess8   db '    print   (p)         chinese :',0ah,0dh,'$'

mess9   db '    exit    (e)',0ah,0dh,'$'

mess10  db '**********************************************************$'

mess11  db 'name            Ma   En   Co   Ch',0ah,0dh,'$'

mess13  db '    list    (l)',0ah,0dh,'$'

mess12  db 'maths  <60  <70  <80  <90  <100',0ah,0dh,'$'

err1    db ' there is not this student$'

err2    db ' file close wrong$'

fname   db "e:\score.txt"

buffer1 db 23 dup(?)

buffeer db 0ah,0dh,'$'

buffer2 db 30 dup(?)

buffer3 db 8 dup('0')

count   db 5

handle  dw ?

del     db 8 dup('0')

x       db ?

data    ends

score struc

names    db 15 dup(' ')

maths    db 0,0

english  db 0,0

computer db 0,0

chinese  db 0,0

score ends

show macro addrs

        lea dx,addrs

        mov ah,9

        int 21h

        endm

set_p1 macro  a

        mov ah,2

        mov dh,a

        mov dl,36

        mov bh,0

        int 10h

        endm

set_p2 macro

       mov ah,2

       mov dh,12

       mov dl,2

       mov bh,0

       int 10h

       endm

set_p3 macro

       mov ah,2

       mov dh,1

       mov dl,30

       mov bh,0

       int 10h

       endm

clear  macro                        ;all screen

       mov al,0

       mov cl,0

       mov ch,0

       mov dh,24

       mov dl,79

       mov bh,7

       mov ah,6

       int 21h

       endm

clear1 macro                   ;lefe screen

       mov al,0

       mov bh,7

       mov ch,4

       mov cl,36

       mov dh,10

       mov dl,79

       mov ah,6

       int 10h

       endm

clear2 macro                      ;down screen

       mov al,0

       mov bh,7

       mov ch,12

       mov cl,0

       mov dh,24

       mov dl,79

       int 10h

       endm

newline macro

        push ax

        push dx

        mov dl,0dh

        mov ah,2

        int 21h

        mov dl,0ah

        mov ah,2

        int 21h

        pop dx

        pop ax

        endm

show_item macro addrs

        local iloop,w10

        push bx

        push cx

        mov bx,0

iloop:  mov dl,addrs[bx]         ;display char

        mov ah,2

        int 21h

        inc bx

        cmp bx,15

        jl  iloop

        mov cx,4

w10:    mov dl,' '

        mov ah,2

        int 21h

        mov dl,' '

        mov ah,2

        int 21h

        mov dl,' '

        mov ah,2

        int 21h

mov dl,addrs[bx]

        mov ah,2

        int 21h

        inc bx

        mov dl,addrs[bx]

        mov ah,2

        int 21h

        inc bx

        loop  w10

        newline

        pop cx

        pop bx

        endm  getin   macro addrs,count2

local   zeroit,lp,input_end,exit

        push bx

        push ax

        mov bx,0

zeroit: mov addrs[bx],' '

        inc bx

        cmp bx,15

        jl  zeroit

        mov bx,0

lp:     mov ah,1

        int 21h

        cmp al,0ah

        jz  input_end

        cmp al,0dh

        jz  input_end

        mov addrs[bx],al

        inc bx

        cmp bx,count2

        jl lp

input_end: cmp al,0dh

        jz  exit

        cmp al,0ah

        jz  exit

        mov ah,7

        int 21h

        jmp input_end

exit:   

        pop ax

        pop bx

        endm

code    segment

main proc far

     assume  cs:code,ds:data,es:data

start: 

      mov ax,data

      mov ds,ax

      mov ah,0

      mov al,3

      int 10h

   ]clear

      show mess1

      show mess2

      show mess13

      show mess3

      show mess4

      show mess5

      show mess6

      show mess7

      show mess8

      show mess9

      newline

      show mess10

      set_p3

w:    mov ah,7

      int 21h

      cmp al,'i'

      jnz n1            

      call insert

      jmp  w

n1:   cmp al,'m'

      jnz  n2

      call modify

      jmp  w

n2:   cmp al,'d'

      jnz  n3

      call delete

      jmp  w

n3:   cmp al,'q'

      jnz  n4

      call query

      jmp  w

n4:   cmp  al,'c'

      jnz  n5

      call cot

      jmp  w

n5:   cmp  al,'p'

      jnz  n6

      call print

      jmp  w

n6:   cmp  al,'l'

      jnz  n7

      call list

      jmp  w

n7:   cmp al,'e'

      jz  exitf

      jmp  w

exitf:

       mov ah,4ch

       int 21h

       ret

main   endp  insert proc near

       push ax

       push bx

       push cx

       push dx

    mov dx,offset fname

       mov al,2

       mov ah,3dh

       int 21h

       mov bx,ax

       clear1

       set_p1 4

       call get_rec

       mov cx,0               ;move file pointer to end

       mov dx,0

       mov al,2

       mov ah,42h

       int 21h

      mov cx,23                    ;write file

       mov dx,offset buffer1

       mov ah,40h 

       int 21h

       mov ah,3eh

       int 21h

       set_p3

       pop dx

       pop cx

       pop bx

       pop ax

       ret

insert endp  get_rec proc near

       push ax

       push bx

       getin buffer2,15

       mov bx,0

       mov  cx,15

continue:   mov al,buffer2[bx]

       mov buffer1[bx],al

       inc bx

       loop  continue

       set_p1 5

       getin buffer2,2

       mov al,buffer2

       mov buffer1[bx],al

       inc bx

       mov al,buffer2+1

       mov buffer1[bx],al

       inc bx

       set_p1 6 

       getin buffer2,2

       mov al,buffer2

       mov buffer1[bx],al

       inc bx

       mov al,buffer2+1

       mov buffer1[bx],al

       inc bx

       set_p1 7

       getin buffer2,2

       mov al,buffer2

       mov buffer1[bx],al

       inc bx

       mov al,buffer2+1

       mov buffer1[bx],al

       inc bx

       set_p1 8

       getin buffer2,2

       mov al,buffer2

       mov buffer1[bx],al

       inc bx

       mov al,buffer2+1

       mov buffer1[bx],al

       inc bx

       pop bx

       pop ax

       ret

get_rec endp

openf proc near

      mov dx,offset fname

      mov al,02

      mov ah,3dh

      int 21h

      mov handle,ax

      ret

openf endp

query  proc near

       push ax

       push bx

       push cx

       push dx

       clear1

       clear2

       mov dx,offset fname

       mov al,2

       mov ah,3dh

       int 21h

       mov bx,ax

       set_p2

       getin buffer1,15

       lea dx,mess11

       mov ah,9

       int 21h

b:  

       mov ah,3fh

       mov cx,23

       mov dx,offset buffer2

       int 21h

       lea si,buffer2

       lea di,buffer1

       mov cx,15

c: 

       mov al,byte ptr[si] 

       cmp al,byte ptr[di]

       jnz b

       inc si

       inc di

       loop c

       mov [buffer2+23],'$'

       show_item buffer2

       mov ah,3eh

       int 21h

       pop dx 

       pop cx

       pop bx

       pop ax

       ret

query  endp

modify proc near

       push ax

       push bx

       push cx

       push dx

       clear1

       set_p1 4

       mov dx,offset fname

       mov al,2

       mov ah,3dh

       int 21h

       mov bx,ax

       mov handle,ax

       call get_rec          ; contact is in  buffer1

read: 

       mov dx,offset buffer2

       mov cx,23

       mov ah,3fh

       int 21h

       lea si,buffer2

       lea di,buffer1

       mov cx,15

c5:  

       mov dl,byte ptr[si] 

       cmp dl,byte ptr[di]

       jnz read

       inc si

       inc di

       loop c5

       mov bx,handle

       mov ah,42h

       mov al,1

       mov cx,0ffffh

       mov dx,-23

       int 21h

       mov cx,23

       mov dx,offset buffer1

       mov ah,40h

       int 21h

       mov ah,3eh

       int 21h

       jmp exit2

exit1: 

       set_p2

       show err1 

exit2:

       set_p3 

       pop dx

       pop cx

       pop bx

       pop ax

       ret

modify endp

delete proc near

       push ax

       push bx

       push cx

       push dx

       clear1

       set_p1 4

       mov dx,offset fname

       mov al,2

       mov ah,3dh

       int 21h

       mov bx,ax

       mov handle,ax

       getin buffer1,15          ; contact is in  buffer1

read5: 

       mov dx,offset buffer2

       mov cx,23

       mov ah,3fh

       int 21h

       lea si,buffer2

       lea di,buffer1

       mov cx,15

 c6:   

       mov dl,byte ptr[si] 

       cmp dl,byte ptr[di]

       jnz read5

       inc si

       inc di

       loop c6

       mov bx,handle

       mov ah,42h

       mov al,1

       mov cx,0ffffh

       mov dx,-8

       int 21h

       mov cx,8

       mov dx,offset del

       mov ah,40h

       int 21h

       mov ah,3eh

       int 21h

       jmp exit6

exit5: 

       set_p2

       show err1 

exit6:

       set_p3 

       pop dx

       pop cx

       pop bx

       pop ax

       ret

delete endp             

list   proc   near

       push ax

       push bx

       push cx

       push dx

       clear1

       clear2

       set_p2

       show mess11

       mov dx,offset fname

       mov al,2

       mov ah,3dh

       int 21h

       mov bx,ax

again: 

       mov dx,offset buffer1

       mov cx,23

       mov ah,3fh

       int 21h

       cmp ax,0

       jz p

       show_item buffer1

       jmp again

p:         

       mov ah,3eh

       int 21h

       set_p3

       pop dx

       pop cx

       pop bx

       pop ax

       ret

list   endp

print  proc near

       push ax

       call openf

       mov cl,count

       mov ch,0

read2:

       mov dx,offset buffer1

       mov cx,type score

       mov ah,3fh

       int 21h

       mov cx,23h

       mov bx,0

next:  mov ah,5

       mov dl,byte ptr buffer1[bx]

       int 21h

       inc bx

       loop next

       mov ah,5

       mov dl,0dh

       int 21h

       dec x

       cmp x,0

       jnz read2

       mov bx,handle

       mov ah,3eh

       int 21h

       pop ax

       ret

print  endp

cot  proc 

       push ax

       clear2

       set_p2

       show mess12

       mov dx,offset fname

       mov ah,3dh

       int 21h

       mov bx,ax

       mov handle,ax

read0: mov dx,offset buffer2

       mov cx,23

       mov ah,3fh

       int 21h

       mov dl,[buffer2+15]

       cmp dl,'6'

       jl  five

       cmp dl,'7'

       jl  six

       cmp dl,'8'

       jl  seven

       cmp dl,'9'

       jl  eight

       inc [buffer3+4]

       jmp quit

eight:  

       inc [buffer3+3]

       jmp quit

seven: inc [buffer3+2]

       jmp quit

six:   inc [buffer3+1]

       jmp quit

five:  inc [buffer3]

quit:  cmp ax,0

       jnz read0

       mov cx,10

a:     mov dl,' '

       mov ah,2

       int 21h

       loop a 

       mov bx,0               

a0:    mov dl,[buffer3+bx]

       mov ah,2

       int 21h

       inc bx

       mov dl,' '

       mov ah,2

       int 21h

       mov dl,' '

       mov ah,2

       int 21h

       cmp bx,5

       jnz a0

       mov bx,handle

       mov ah,3eh

       int 21h

       set_p3

       pop ax

       ret

cot  endp

code   ends

       end start

3、运行我们编辑的文件,就会出现操作界面效果，文件路径在e盘（由源代码设置），输入l可以看到成绩列表 输入 q 再输入wang 可以查到成绩 e为退出