Listing (КП - вывод текста на экран), страница 3

; перехват прерываний - сохранение старых обработчиков и вызов новых

mov ax, 352Dh

int 21h

mov word ptr old_int2Dh, bx

mov word ptr old_int2Dh+2, es

mov ax, 3509h

int 21h

mov word ptr old_int09h, bx

mov word ptr old_int09h+2, es

mov ax, 252Dh

mov dx, offset int2Dh_handler

int 21h

mov ax, 2509h

mov dx, offset int09h_handler

int 21h

mov ah, 49h

mov es, word ptr envseg

int 21h ; освободить память для переменных окружения

mov dx, offset init

int 27h ; terminate and stay resident

show_msg proc near

mov ah, 9

int 21h

ret

show_msg endp

read_cmd proc near

mov al, cmd_len

dec al

dec al

mov di, offset cmd_line

xor ah, ah

add di, ax

ret

read_cmd endp

init endp

usage db 'STSR release 1', 13, 10

db 'Copyright (C) 2001 by LORD', 13, 10, '$'

helpmsg db 'Программа предназначена вывода строк по запросу пользов

теля. ', 13, 10

db 'Вызвать резидент можно, нажав Ctrl+U', 13, 10, 13,

10

db 'USAGE:', 13, 10

db 'STSR - загрузить программу', 13, 10

db 'STSR /? - вызов справки', 13, 10, '$'

db 'STSR /u - выгрузить программу', 13, 10,

'$'

; символьные массивы для вывода

already_msg db 'Ошибка: Программа уже загружена в память', 13, 10, '$'

no_more_mux_msg db 'Ошибка: слишком много резидентов в памяти', 13, 10, '$'

cant_unload1_msg db 'Ошибка: программа не обнаружена в памяти', 13, 10, '$'

cant_unload2_msg db 'Ошибка: другая программа перехватила прерывания', 13, 10,

'$'

unloaded_msg db 'Программа успешно выгружена из памяти', 13, 10, '$'

pars db 'Params received', 13, 10, '$'

in_dos_addr dd ?

unloading db 0

end start

1Помощь 2>> 3 4Коды 5 6 7Поиск 8Фоpмат 9Печать 10Выход