Курсовая работа: Розробка програми призначеної для перегляду текстових файлів різного розміру
ctrl: xor min_disp,020h ; выводить/игнор символы 0-31
call Back1
jmp NxtPage
Got_S: Call Scan ;Поиск текста
Jmp NxtPage
NxtPage: ;key (nextpage)
Mov AX,Index
Cmp AX,Last ;end of file?
Jae BWait
Mov Current,AX
Mov DH,2
Mov Row,DH
Call Clear
Jmp TestEor
Up1: Cmp First,0 ; Уже в начале?
Jne Up12 ; нет, scroll up one line
Bwait: Jmp AtEnd ; да, пропускаем
Up12: Call Scroll_Up
Mov AX,Index
Mov Current,AX
Mov AX,First
Mov Index,AX
Call UpOne
Mov Row,2
Mov Col,1
Call ListOne
Mov AX,Current
Mov Index,AX
Call UpOne