学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

我快死了 怎么样都不过啊 改哪都没用 高手救个命!!!

我快死了 怎么样都不过啊 改哪都没用 高手救个命!!!

CALL INFILE
MAIN    PROC  FAR    
        
             MOV    AX,DATA                            ;DATA->DS
          MOV    DS,AX
  
              Mov           AX,3c00H   
              Mov           CX,20H         ;文件属性为归档   
              Mov           DX,Offset   FileName   
              Int           21H               ;建立文件   
              Jc             Err1   
              Mov           BX,AX   
              Mov           AX,3e00H   
              Int           21H               ;关闭文件   
              Mov           AX,3d02H   
              Mov           DX,Offset   FileName   
              Int           21H               ;按读写方式打开文件   
              Jc             Err2   
              Mov           BX,AX   
              Mov           AX,4000H   
              Mov           CX,14           ;要写的字节数   
              Mov           DX,Offset   Msg   
              Int           21H               ;写数据到文件   
              Jc             Err3   
              Mov           AX,3e00H   
              Int           21H               ;关闭文件   
      Exit:   
              Mov           AX,4c00H   
              Int           21H   
      Err1:   
              Mov           DX,Offset   Error1   
              Jmp           ShowErr   
      Err2:   
              Mov           DX,Offset   Error2   
              Jmp           ShowErr   
      Err3:   
              Mov           DX,Offset   Error3   
              Jmp           ShowErr   
      ShowErr:   
              Mov           AX,900H   
              Int           21H   
              Jmp           Exit   
      Error1         DB         "Create   file   fail.",13,10,"$"   
      Error2         DB         "Open   file   fail.",13,10,"$"   
      Error3         DB         "Write   file   fail.",13,10,"$"   
      FileName     DB         "Data.txt",0   
      Msg               DB         "Hello   World!",13,10   
     

          
          
          CALL WFILE
          HLT
MAIN    ENDP



大家看看哪错了 老是通不过   
             谢谢了     我是ML615的环境

[ 本帖最后由 kaokaokao007 于 2008-4-20 17:50 编辑 ]

TOP

发新话题