读文件1.asm

磁盘文件的读取

  .model small 
  .data  
     ioarea db 64 dup(' '),'$'
     encode db 0
     handle dw ?
     patham db 'E:\ACCOUNT.txt',0
     row db 0
     openmsg db 'open error',0dh,0ah
     readmsg db 'read error',0dh,0ah

.code 
begin proc near
      mov ax,@data
      mov ds,ax
      mov es,ax
      call openh
      cmp encode,0
      jnz skip1
contin:
       call readh
       call disp
       cmp encode,0
       jnz skip1
       jmp contin
skip1:
      mov ah,4ch
      int 21h
      begin endp
openh proc near
      mov ah,3dh
      mov al,0
      lea dx,patham
      int 21h
      jc skip2
      mov handle,ax
      ret
skip2:
      mov encode,1
      lea dx,openmsg             
      call errm
      ret
      openh endp
readh proc near
      mov ah,3fh
      mov bx,handle
      mov cx,64
      lea dx,ioarea
      int 21h
      jc skip3
      cmp ax,0
      je skip4
      cmp ioarea,1ah
      je skip4
      ret
skip3:      
      lea dx,readmsg
      call errm
skip4:
      mov encode,1
      ret
readh endp
errm proc near
     mov ah,40h
     mov bx,01
     mov cx,20
     int 21h
     ret     
errm endp 
disp proc near
     mov ah,9
     lea dx,ioarea
     int 21h
disp endp
     end begin