Оформил: 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