cc.asm

成绩数据库管理系统. 1．能够实现菜单显示、菜单选择、编辑（录入、插入、修改、删除等）、查找、显示、求总成绩、按总成绩排序（高→低）并显示、装入数据文件、数据文件存盘、退出、为数据动态分配存储空间[

INCLUDE filefuc.mac
GRADE STRUC
STUDENTNUMBER   DB 10 
               DB ?
               DB 10 DUP(?)
               DB '$'
NAM            DB 6 
               DB ?
               DB 6 DUP(?)
               DB '$'
COURSE1        DB 3 
               DB ?
               DB 3 DUP(?)
               DB '$'
COURSE2        DB 3 
               DB ?
               DB 3 DUP(?)
               DB '$'
COURSE3        DB 3 
               DB ?
               DB 3 DUP(?)
               DB '$'
COURSE4        DB 3 
               DB ?
               DB 3 DUP(?)
               DB '$'
SUM            DB 3 
               DB ?
               DB 3 DUP(?)
               DB '$'
LIST           DB 3
               DB ?
               DB 3 DUP(?)
               DB '$'
GRADE ENDS 
STSG SEGMENT STACK 'S'
	DW 32 DUP(?)
STSG ENDS
DATA SEGMENT
PAGES DB ?
HANG DB 34
LIA  DB 3
MM   DW ?
MMS   DW ?
DATAPOS DW ?
NO GRADE<>
	
MSG2 DB 'OPEN FILE ERROR!','$'
MSG  DB 'SOTR ERROR!'
FILENAME DB 'F:\first.txt',0
CT  EQU $-BUFFER
FILEHANDLE DW 0
CE DB ?
SAS DB 7 
               DB ?
               DB 7 DUP(?) 
DATA ENDS
CODE SEGMENT
OPENFILES PROC far
    ASSUME CS:CODE,DS:DATA,SS:STSG
     PUSHREG
     push ds
     MOV PAGES,AL
     LOADDS DATA
     MOV DH,23
     MOV DL,4
    
    OPENFILE FILENAME,FILEHANDLE
    
     cmp AL,119
     JNZ ksb
     MOV DH,23
     MOV DL,4
     PUTS 0,0,MSG2,1EH
     JMP QCK
ksb: MOV AH,48H
     MOV BX,18
     
     JNZ NEX
     MOV DH,23
     MOV DL,2
     PUTS DH,DL,MSG,1EH
     JMP QCK
NEX: MOV DATAPOS,AX
     MOV AH,0
     MOV AL,1
     MOV BX,340
     MUL BX
     MOV DX,AX  
     MOV AH,42H
     MOV BX,FILEHANDLE
     MOV CX,0
     MOV AL,0
     INT 21H
     MOV DI,0
     MOV DH,1
OUTS:
     MOV DL,2
     ADD DH,2
     CMP DH,22
     JAE QCK
     READFILE 10,NO.STUDENTNUMBER,FILEHANDLE
      CMP AL,0
     JZ  QCK 
     PUTS DH,DL,NO.STUDENTNUMBER,1EH
     ADD DL,13
     READFILE 6,NO.NAM ,FILEHANDLE
    
     PUTS DH,DL,NO.NAM ,1EH
     
     ADD DL,10
      READFILE 3,NO.COURSE1,FILEHANDLE
     
     PUTS DH,DL,NO.COURSE1,1EH
     ADD DL,10
      READFILE 3,NO.COURSE2,FILEHANDLE
      
     PUTS DH,DL,NO.COURSE2,1EH
     
     ADD DL,10
     READFILE 3,NO.COURSE3,FILEHANDLE
      
     PUTS DH,DL,NO.COURSE3,1EH
     ADD DL,10
      READFILE 3,NO.COURSE4,FILEHANDLE
      
     PUTS DH,DL,NO.COURSE4,1EH
     ADD DL,10
      READFILE 3,NO.SUM,FILEHANDLE
      
     PUTS DH,DL,NO.SUM,1EH
     ADD DL,10
     READFILE 3,NO.LIST,FILEHANDLE
     
     PUTS DH,DL,NO.LIST,1EH
     MOV AX,DATAPOS
     MOV ES,AX
     LEA SI,NO
     MOV CX,63
     CLD
     REP MOVSB
     ADD DI,63
     JMP OUTS
     
QCK: 
     CLOSEFILE FILEHANDLE
      MOV AH,1
    INT 21H 
       pop ds     
    POPREG
     
        mov ax,4c00h
        int 21h
OPENFILES  ENDP
       
CODE ENDS
END OPENFILES