Структурне програмування на асемблері, Детальна інформація
Структурне програмування на асемблері
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
;-------------------------------------------------------------------
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
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021