Чтение из файла и вывод его содержимого в сборке

Question

Добрый день! Я слышал фрагмент кода, который печатает приветственное сообщение (меню), используя видеорежим 10h. Когда нажимается 4, он должен читать из файла и отображать его содержимое на экране. Однако он отображает значение мусора, и мне нужно открыть DosBox и снова установить его.

.model small 
.stack 1024 
.data 

MENU  DB 10,"" 
      DB 10,"   Welcome  " ;24 
      DB 10,"" 
      DB 10,"1 Novice"    ;3, 9 
      DB 10,"2 Boss"     ;3, 6 
      DB 10,"3 Superb"    ;3, 11 
      DB 10,"4 Scores"  
      DB 10,"" 
      DB 10,"Choice: ","$"    ;8 

ROW1 DB 5 
ROW2 DB 10 
COL DB 25  

Choice DB ? 

; OTHER DECLARATIONS FOR COLORING I WON'T SHOW FOR SIMPLICITY 

FileName DB "file.txt",0,8 ; name of file to open 
Handle DW ? ; to store file handle 

BufferSeg dw 0 

ErrMsgOpen db "Error opening `" 
FileLength dw 0 

nextLine db 13,10 

.code 

DisplayFile PROC NEAR 

    ;escape to video mode 
    mov ax,0A000h 
    mov es,ax 
    xor di,di 
    xor ax,ax 
    mov cx,32000d 
    cld 
    rep stosw 

    mov  ax,cs 
    mov  ds,ax 
    mov  bx,ss 
    add  bx,200h/10h  ;get past the end of the file 
    mov  [BufferSeg],bx ;store the buffer segment 

    ;call WriteFile 
    push ds 

    mov  ax,cs 
    mov  ds,ax 
    mov  ax,3d00h ;open file (ah=3dh) 
    mov  dx,offset FileName 
    int  21h 
    mov  bx,ax  ;move the file handle into bx 

    mov  ds,[BufferSeg] 
    mov  dx,0   ;load to [BufferSeg]:0000 
    mov  ah,3fh 
    mov  cx,0FFFFh  ;try to read an entire segments worth 
    int  21h 

    mov  [cs:FileLength],ax 

    mov  ah,3eh 
    int  21h    ;close the file 

    cld 
    mov  si,0 
    mov  cx,[cs:FileLength] 

    PrintLoop: 
     mov  ah,2 
     lodsb 
     mov  dl,al 
     int  21h   ;print a character 

     dec  cx 
     jne  PrintLoop 

     pop  ds 
     ret 

    OpenError: 
     mov  ah,9 
     mov  dx,offset ErrMsgOpen 
     int  21h 

     pop  ds 
     ret 
DisplayFile ENDP 

.STARTUP 
    mov  ax, @data 
    mov  ds, ax 

    @welcome: 
     mov ax, 3 
     int 10h 

     MOV AX, 3  ; 80x25 color 
     INT 10H   ; video BIOS call 
     MOV AH, 2  ; set cursor position 
     MOV BH, 0  ; display page number 
     MOV DH, ROW1  ; row number 
     MOV DL, COL  ; column number 
     INT 10H   ; video BIOS call 
     LEA BP, ATT_BRICK  ; point to first attribute array 
     CALL FAR PTR STICK ; display first line of video text 


     ;scanf user's choice 
     mov ah, 01h 
     int 21h 
     sub al, '0' 
     mov Choice, al 

     ; OTHER CODES 

     cmp al, 4 
     je @scores 

    @score: 
     call DisplayFile 

    @quit: 
     mov  ax, 4c00h  ;call dos to exit 
     int  21h 

.EXIT 
END 

В основном это игра, которая сохраняет результаты в файле. Я могу правильно записать файл, но когда я пытаюсь прочитать его, он не выводится на экран. Пожалуйста, помогите мне. Большое спасибо!

EDIT:
Это то же, что DisplayScore proc near делает, но в отдельном файле ассемблерном (только для проверки, если чтение из файла работ и это).

.MODEL SMALL 
    .STACK 200h 
    .CODE 
    Ideal 

;===- Data -=== 

BufferSeg dw 0 

ErrMsgOpen db "Error opening `" 
FileName db "file.txt",0,8,"'$"  ;8 is a delete character 

             ;0 is required for filename 
             ;(displays a space) 
FileLength dw 0 

buffer db "hehe$" 
;===- Subroutines -=== 

PROC DisplayFile NEAR 
    push ds 

    mov  ax,cs 
    mov  ds,ax 
    mov  ax,3d00h ;open file (ah=3dh) 
    mov  dx,offset FileName 
    int  21h 
    jc  OpenError 
    mov  bx,ax  ;move the file handle into bx 

    mov  ds,[BufferSeg] 
    mov  dx,0   ;load to [BufferSeg]:0000 
    mov  ah,3fh 
    mov  cx,0FFFFh  ;try to read an entire segments worth 
    int  21h 

    mov  [cs:FileLength],ax 

    mov  ah,3eh 
    int  21h    ;close the file 

    cld 
    mov  si,0 
    mov  cx,[cs:FileLength] 
PrintLoop: 
    mov  ah,2 
    lodsb 
    mov  dl,al 
    int  21h   ;print a character 

    dec  cx 
    jne  PrintLoop 

    pop  ds 
    ret 

OpenError: 
    mov  ah,9 
    mov  dx,offset ErrMsgOpen 
    int  21h 

    pop  ds 
    ret 
ENDP DisplayFile 

;===- Main Program -=== 

START: 
    mov  ax,cs 
    mov  ds,ax 
    mov  bx,ss 
    add  bx,200h/10h  ;get past the end of the file 
    mov  [BufferSeg],bx ;store the buffer segment 

    ;call WriteFile 
    call DisplayFile 

    mov  ax,4c00h 
    int  21h 
END START 

Answer 1

Если мы начнем наше приложение, то мы становимся все свободное барана из DOS, поэтому мы не можем знать, сколько оперативной памяти мы actualy можно использовать и которые сегментные адреса сохраняются для DOS и ТМР-драйверов. Таким образом, мы должны вернуть DOS все, что мы еще не нуждаемся в этом моменте, прежде чем мы сможем запросить нового назначенного am ram of ram из DOS, начиная с segmentaddress, который постоянно имеет свободный баран, который не содержит форматов DOS или драйверов ,

  call SETFREE    ; calculate the amoung of ram that we need 
            ; for running our application and giviving 
            ; back the rest of ram to DOS 

      mov  bx, 2000h   ; request/reserv 128 KB ram from DOS 
      call GETSPACE 
      jc NOSPACE    ; Error! 
      mov  [NEWSEG], ax  ; save segment address 


;------------------------------------ 
SETFREE: mov  bx, ss   ; First we subtract both segmentaddresses 
      mov  ax, es   ; for to become the amoung of paragraphs 
      sub  bx, ax   ; from the PSP to the beginning of the stack. 
      mov  ax, sp   ; Because our stackpointer beginn at the end 
      add  ax, 0Fh   ; of the stacksegment, we can use the stackpointer 
      shr  ax, 4    ; for the length of the stack. 
      add  bx, ax 
      mov  ah, 4Ah   ; Set new size 
      int 21h 
      ret 
;------------------------------------ 
GETSPACE: mov  ah, 48h   ; BX = number/16 
      int 21h 
      ret