经典汇编语言教程：10.4 文件操作程序举例

例10.12 编写一个程序显示由例10.11建立的记录文件students.dat中的学生信息。

解：
	.MODEL SMALL,C
	student	STRUCT
		id	DW ?
		sname	DB 10 DUP(?)
		age	DB ?
	student	ENDS
	.DATA
	fname	DB "Students.dat",0
	id1	DB "Id:", 4 dup(?), 0dh, 0ah, "$"
	name1	DB "Name:", 10 dup(' '), 0dh, 0ah, "$"
	age1	DB "Age:", 2 dup(?), 0dh, 0ah, "$"
	msg1	DB "Fail to open file$"
	peason	student <>
	.CODE
	DispMsg	PROC USES AX DX, Msg:PTR BYTE		;显示字符串Msg
		……		;参见例10.7
	DispMsg	ENDP
	;程序功能：把数据Data转换成长度为Len的字符串； ;入口参数：待转换数据Data，转换成字符串的长度为Len，存放字符串的首地址为PStr； ;出口参数：读入信息(字符串)存放缓冲区buff中。
	GetStr	PROC USES AX CX DX DI, Data:WORD, Len:WORD, PStr:PTR BYTE
		MOV	CX, Len
		MOV	DI, PStr
		MOV	AL, ' '
		REP	STOSB	;把存放字符串的缓冲区填充为空格
		MOV	DI, PStr
		ADD	DI, Len
		DEC	DI	;确定最后一个字符在缓冲区中的位置
		MOV	AX, Data
		MOV	CX, 10
		.REPEAT
		XOR	DX, DX
		IDIV	CX	;除10，从低位向高位求得每一位
		ADD	DL, '0'	;把余数转变成字符，然后存放目标单元
		MOV	[DI], DL
		DEC	DI
		.UNTIL AX==0
		RET
	GetStr	ENDP
		.STARTUP
		MOV	AX, DS
		MOV	ES, AX
		LEA	DX, fname
		MOV	AL, 0H
		MOV	AH, 3DH
		INT	21H	;以“只读”方式打开指定的文件
		.IF CARRY?		;若创建失败，则显示失败信息
		INVOKE DispMsg, ADDR msg1
		JMP over
		.ENDIF
		MOV	BX, AX	;把句柄存入BX，为后面使用作准备
	again:
		MOV	CX, SIZE peason
		LEA	DX, peason
		MOV	AH, 3FH
		INT	21H	;从文件中读出一个记录
		.IF CARRY? || AX==0		;若读记录出错或遇到文件尾，结束
		JMP	close
		.ENDIF
		INVOKE	GetStr, peason.id, 4, ADDR Id1+3	;把“学号”转换成字符串
		INVOKE	DispMsg, ADDR Id1	;显示“学号”字符串
		MOV	CX, 10
		LEA	SI, peason.sname
		LEA	DI, Name1+5
		REP	MOVSB	;把“姓名”转移到显示区
		INVOKE	DispMsg, ADDR Name1	;显示“姓名”字符串
INVOKE		Getstr, peason.age, 2, ADDR Age1+4	;把“年龄”转换成字符串
INVOKE		Dispmsg, ADDR Age1	;显示“年龄”字符串
JMP		again
close:
	MOV	AH, 3EH
	INT	21H	;关闭当前打开的文件
over:
	.EXIT	0
	END

从例10.11和10.12，我们不难掌握记录文件的读写方法。有兴趣的读者，还可以利用文件指针的定位来指定读写某个具体的记录。