Структурне програмування на асемблері, Детальна інформація

lea dx,[prompt]

int 21h

mov ah,0ch

mov al,0ah ;функцiя вводу з клвiатури

lea dx,[filenam]

int 21h

mov bl,[filenam+1] ;записати

xor bh,bh ;00 в кiнець

mov [filenam+bx+2],0 ;iменi файлу

mov [byte namelen],bl

c90: ret

endp inp_filename

; Вiдкриття дискового файлу:

; --------------------------

proc open_file

mov ah,3dh ;функцiя вiдкриття

mov al,00 ;тiльки читання

lea dx,[filenam+2]

int 21h

jnc e20 ;перевiрити ознаку CF

call errormsg ;помилка, якщо встановлена

ret

e20:

mov [handle],ax ;зберегти номер файлу

lea di,[sector]

mov ax,2020h

mov cx,256 ;очистити пропусками

rep stosw ;область сектора

ret

endp open_file