高分求汇编程序设计！！！

来源：百度知道 编辑：UC知道 时间：2024/05/10 10:47:40
做一个人档案管理系统，就是温冬婵等编写IBM—PC汇编语言程序设计实验教程里的实验4.2 添加一个查询命令S，和删除命令L，
原题是：设有一个个人档案文件DOCU，它包含每个人的姓名，年龄，性别，身高和体重这五项内容。其中姓名占10个字节，年龄2个字节，性别1个字节，身高3个字节，体重2个字节。编写一DOCU的管理程序.我另外还有个,提交到其他编程语言上去了,如果把这个做了,可以把那边150也献上,谢谢啊!!!
以下是远程序,只要添上要求的两个命令就可以了
data segment
org 6ah
rec_size dw ?
org 07ch
recno db ?
randlow dw ?
randhi dw ?
org 80h
dta db 80h dup(?)
data ends

PSize equ 8
RSize equ 18
fcb equ 5ch

vars segment
names db 10 dup(?)
age db ?,?
sex db ?
height db ?,?,?
weight db ?,?
pcounter db ?
mess_n db 0ah,0dh," name : $"
mess_a db 0ah,0dh," age : $"
mess_s db 0ah,0dh," sex : $"
mess_h db 0ah,0dh," height : $"
mess_w db 0ah,0dh," weight : $"
err_fopen db 0ah,0dh," file open error

MAIND SEGMENT
NUM DB 30 DUP(?)
MAX DB ?
MIN DB ?
MESG1 DB 'MAX:$'
MESG2 DB 'MIN:$'
MAIND ENDS

MAINC SEGMENT
MAIN PROC FAR
ASSUME CS:MAINC,DS:MAIND
START: PUSH DS
XOR AX,AX
PUSH AX
MOV AX,MAIND
MOV DS,AX

CALL KEYIN
CALL S_MAX
CALL S_MIN
JMP MAIN
RET
MAIN ENDP
;-----------------------------
KEYIN PROC NEAR
MOV BL,0
MOV DI,OFFSET NUM
ONCEA: MOV [DI],BL
INC DI
NEWCHAR: MOV AH,01H
INT 21H
CMP AL,0
JZ ONCEA
CMP AL,0DH
JZ EXIT1
SUB AL,30H
JL EXIT2
CMP AL,10
JL TRANS
SUB AL,07H
CMP AL,0AH
JL EXIT2
CMP AL,10H
JGE EXIT2
TRANS: MOV CL,4
SHL BL,CL
ADD BL,AL
JMP NEWCHAR
EXIT1: MOV [DI],BL
INC DI
MOV BYTE PTR[DI],24H
EXIT2: RET
KEYIN ENDP
;-----------------------------