code segment public
assume cs:code
org 100h
; процедуры из proc.asm
extrn key:near
extrn set_init:near ; процедура инициализации
extrn set_simbol:near ; процедура вывода символа
extrn set_msg:near ; вывод сообщения
extrn set_cursor:near ; установка курсора
extrn set_wait:near ; установка курсора
; ----------------------------------------------------------------------------
; Основная процедура
; ----------------------------------------------------------------------------
main proc near
; инициируем видео драйвер
mov bh,1
mov bl,7
call set_init
; запустим драйвер клавиатуры, подав на вход bp=1
mov bp,1
call key
; key вернул смещение строки, вот её и покажем
call set_msg
; завершим работу драйвера клавиатуры, подав на вход bp=0
mov bp,0
call key
; возврат в дос с кодом завершения програмы 0
mov ax,4c00h
int 21h
main endp
code ends
end main
|