exp1101.asm

来自「汇编语言 参考书 包含作业与答案 从入门到精通 通俗易懂」· 汇编 代码 · 共 43 行

STACK   SEGMENT PARA STACK
        DW      100h DUP(?)
STACK   ENDS

DATA    SEGMENT PARA
F_NAME          DB      'C:TEST.DAT',00H
FILE_H          DW      ?
BUFF            DB      'Good morning!','Good afternoon!'
BUFF_LEN        EQU     $-BUFF
DATA    ENDS

CODE    SEGMENT PARA
        ASSUME  CS:CODE,DS:DATA,SS:STACK
MAIN    PROC    FAR
        MOV     AX,DATA
        MOV     DS,AX

        MOV     DX,OFFSET F_NAME
        MOV     CX,0
        MOV     AH,3Ch
        INT     21H
        JC      RETURN
        MOV     FILE_H,AX

        MOV     BX,AX

        MOV     AH,40h
        MOV     CX,BUFF_LEN
        LEA     DX,BUFF
        INT     21H
        JC      RETURN

        MOV     BX,FILE_H
        MOV     AH,3Eh
        INT     21H

RETURN: MOV     AX,4C00h
        INT     21h

MAIN    ENDP
CODE    ENDS
        END     MAIN