Способ создания TSR программ без PSP

Delphi , Программа и Интерфейс , Приложение своё

Оформил: DeeCo

page 60, 132
title NONPSP - Резидентная программа без PSP
;
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  = = = = = = = = = = = = = = = = =
;
;
Пример построения резидентной программы без PSP
;
;
Авторские права ГРУППЫ ПРОГРАММИСТОВ 2 B
;
;
Язык программирования: Ассемблер
;
Транслятор: MASM
;
;
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  = = = = = = = = = = = = = = = = = =
;
;
сообщить транслятору адресацию
;
assume cs: code, ds: code, es: nothing
;
;
определить сегмент кода
;
code segment para
;
subttl Резидентная часть программы
;
ResStart label
  byte;
  определим начало программы
    ;
  Текст резидентной части.

ResEnd label
  byte;
  конец резидентной части
    ResLen equ ResEnd - ResStart;
  размер резидентной части в
    ;
  байтах
    ResSize equ(ResEnd - ResStart + 15) / 16;
  размер резидентной
    ;
  части в параграфах
    org ResStart + ResSize * 16;
  для выравнивания на
    ;
  границу параграфа
    ;
  page
    subttl Инициализация резидентной программы без PSP
    ;
  MCBLen equ 10 h;
  размер MCB
    ;
  PSPMCB db MCBlen dup(0);
  резервная область для MCB
    SavRes db ResLen dup(0);
  область сохранения
    ;
  резидентной части
    ;
  PspOld dw 0;
  для адреса старого PSP
    PspNew dw 0;
  для адреса нового PSP
    ;
  ;
  сообщения
    ;
MsgInst label
  byte
    db 0 ah, 0 dh
    db 'Программа установлена'
    db 0 ah, 0 dh
    db '$'
  MsgNoInst label
  byte
    db 0 ah, 0 dh
    db 'Ошибка. Программа не установлена'
    db 0 ah, 0 dh
    db '$'
    ;
  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
    = = = = = = = = = = = = = = = = =
    ;
  ;
  процедура инициализации резидентной программы без PSP
    ;
  ;
  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
    = = = = = = = = = = = = = = = = =
    ini proc far
    ;
  cld;
  для операций
    пересылки
    mov cs: PspOld, ds;
  сохраним старый PSP
    ;
  ;
  Освобождение environment
    ;
  mov ax, ds: [2 ch];
  адрес сегмента
    mov es, ax;
  environment
    cmp ax, 0;
  есть environment ?
    je Go1;
  нет
    mov ah, 49 h;
  код функции
    int 21 h;
  освободить
    ;
  память
    jnc Go1;
  успешно
    jmp ErrorRet;
  неуспешно
    Go1:
  mov word ptr ds: [2 ch], 0;
  укажем, что нет
    ;
  environment
    push cs;
  установим
    pop es;
  ES
    push cs;
  установим
    pop ds;
  DS
    ;
  ;
  запомним резидентную часть
    ;
  т.к.она будет разрушена при построении новых PSP и MCB
    ;
  mov si, Offset ResStart;
  откуда
    mov di, Offset SavRes;
  куда
    mov cx, ResLen;
  сколько
    rep movsb;
  перешлем
    ;
  ;
  модифицируем размер памяти текущей программы от сегмента
    ;
  PSP на длину резидентной части
    ;
  это приведет к построению нового MCB в теле программы
    ;
  mov ah, 4 ah;
  модифицируем память
    mov bx, ResSize;
  размер резидентной
    ;
  части
    mov es, PspOld;
  сегмент старого PSP
    int 21 h;
  выполним
    jnc Go2;
  успешно
    jmp ErrorRet;
  неуспешно
    Go2:
  ;
  ;
  подсчитаем сегмент памяти для нового PSP
    ;
  mov ax, ResSize;
  длина резидентной
    ;
  части в параграфах
    add ax, PspOld;
  плюс сегмент
    ;
  старого PSP
    add ax, MCBLen / 16;
  плюс длина MCB
    mov PspNew, ax;
  запомним сегмент
    ;
  для нового PSP
    ;
  ;
  создадим новый PSP
    ;
  mov es, PspOld;
  адрес старого PSP
    mov si, word ptr es: [02 h];
  конец памяти
    mov ah, 55 h;
  построим
    ;
  подчиненный PSP
    mov dx, PspNew;
  сегмент нового PSP
    int 21 h;
  выполним
    ;
  ;
  скорректируем указатель на родительский PSP в новом PSP
    ;
  mov es, PspOld;
  сегмент старого PSP
    mov ax, word ptr es: [16 h];
  адрес родительского
    ;
  PSP
    mov es, PspNew;
  сегмент нового PSP
    mov word ptr es: [16 h], ax;
  скорректируем
    ;
  ;
  сообщим DOS о новом активном PSP
    ;
  mov bx, PspNew;
  сегмент нового PSP
    mov ah, 50 h;
  функция указания нового PSP
    int 21 h;
  выполним
    ;
  ;
  укажем принадлежность полученной памяти для нового PSP
    ;
  mov ax, bx;
  сегмент нового PSP
    sub ax, 1;
  сегмент
    ;
  построенного MCB
    mov es, ax
    ;
  = = = = = = = = = = = = = = = = = =
    mov word ptr es: [01 h], bx;
  скорректируем адрес
    ;
  владельца памяти
    ;
  ;
  переместим резидентную часть на старый PSP
    ;
  mov es, PspOld;
  адрес старого PSP
    mov cx, ResLen;
  размер резидентной
    ;
  части
    mov di, 0;
  куда
    mov si, Offset SavRes;
  откуда
    rep movsb;
  переместим
    push cs;
  восстановим
    pop es;
  ES
    ;
  ;
  Успешный выход из программы
    ;
  PrgEnd:
  mov ah, 09 h;
  выведем сообщение
    mov dx, offset MsgInst;
  об успешной
    ;
  установке
    int 21 h;
  mov ax, 4 c00h;
  завершим программу
    int 21 h;
  обычным
    ;
  образом с кодом 0
    ;
  ;
  Выход из программы по ошибке
    ;
  ErrorRet:
  push cs;
  установим адресацию
    pop ds;
  данных
    mov ah, 09 h;
  выведем сообщение
    mov dx, offset MsgNoInst;
  о неуспешной
    ;
  установке
    int 21 h;
  mov ax, 4 c04h;
  завершим программу
    int 21 h;
  обычным
    ;
  образом с кодом 4
    ini endp
    ;
  code ends
    ;
  ;
  СТЕК
    ;
  stack segment stack
    dw 512 dup(0)
    stack ends
end ini

Способ создания резидентных программ без PSP позволяет использовать область PSP для размещения резидентного кода программы, обеспечивая тем самым полноценную работу программы в памяти.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложение своё ::