Структурне програмування на асемблері

prompt db 'Name of file? '

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

codeseg

start:

mov ax,@data

mov ds,ax

mov es,ax

call clrscr ;очистити екран

call cursor ;встановити курсор

loop1:

mov [endcde],00 ;початкова установка

call inp_filename ;получити iм"я файлу

cmp [namelen],00 ;є запит?

je a90 ;нi - вийти

call open_file ;вiдкрити файл, встановити DTA

cmp [endcde],00 ;помилка при вiдкриттi?

jne a80 ;так - повторний запит

call readsector ;прочитати 1-й сектор

cmp [endcde],00 ;кiнець файлу, нема даних

je a80 ;так - повторити запит

call printing ;роздрукувати сектор

a80:

jmp loop1

a90: jmp buy

; П/програма запиту iменi файлу:

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

proc inp_filename

mov ah,40h ;функцiя виводу на екран

mov bx,01

mov cx,13