place.asm

来自「成绩数据库管理系统. 1．能够实现菜单显示、菜单选择、编辑（录入、插入、修改、」· 汇编 代码 · 共 39 行

INCLUDE filefuc.mac
PUBLIC XUHAO
STACKS SEGMENT
  DW 32 DUP(?)  ;此处输入堆栈段代码
STACKS ENDS
DATA SEGMENT
FILENAME DB 'F:\first.txt',0
CT  EQU $-BUFFER
FILEHANDLE DW 2
BUFS DB 1020 DUP(?)   	
DATA ENDS
CODES SEGMENT
XUHAO PROC FAR
    ASSUME CS:CODES ,DS:DATA,SS:STACKS
     PUSHREG
     push DS
     LOADDS DATA
     OPENFILE FILENAME,FILEHANDLE
     READFILE 1020,BUFS,FILEHANDLE
     CLOSEFILE FILEHANDLE
  
    OPENFILE FILENAME,FILEHANDLE
    WRITEFILE 1020,BUFS,FILEHANDLE
    CLOSEFILE FILEHANDLE
    POP DS
   POPREG
   RET 
 XUHAO ENDP   
CODES ENDS
    END XUHAO