'; код переказу рядки при виведенні
EndSTR EQU '', '$'; ознака кінця рядка
ENDM
; ----------------------------------------- --------------------- MACRO
; ----------------------------------------- --------------------- MACRO n; опис стекаSEGMENT STACKn * kByte dup (?) ENDS
; ----------------------------------------- --------------------- MACRO; опис сегмента даннихSEGMENT
; ----------------------------------------- --------------------- MACRO; опис кінця сегмента даних
Data1 ENDS
; ----------------------------------------- --------------------- MACRO; опис сегмента коду
Code1 SEGMENT
; ----------------------------------------- --------------------- MACRO; опис завершення програми
COURSE endp
; ----------------------------------------- --------------------- MACRO; опис кінця сегмента коду
Code1 ENDSCOURSE
; ******** Ініціалізація програми ******************************* ***
START Macrocs: code, ds: data; Прив'язка сегментних регістровax, data; ds, ax; У DS-адреса сегметов даних
; ******** Завершення програми ******************************* *****
FINISH Macroax, 4C00h; Функція DOS21h; Завершити програму
; ******** Сортування слів методом бульбашки '**************************
Sorting macroMbegin, MCMP, MNext, MExit, m0
pushreg ; Зберегти старі значення регістровal, R0; AL = R0 (В R0 довжина максимального слова) al; враховуємо знак ',' Flag, 1; установка прапора обміну слів: ; Flag, 1; обмінювали рядки? m0; Так-продолжаемfar ptr MExit; Ні-Вихід: mov Flag, 0; P1, 1; Занесення до покажчики адрес
; сравніваемихP2, 1; слов.P2, al;: TestEnd P2; Покажчик Р2 на кінець пропозиції? MBegin; Так - 'бульбашка сплив', продовжуємо
; Ні-P1, P2; порівнюємо словаMNext; якщо менше або дорівнює, то продовжуємо
; іначеbl, P2; bh, P1; bh, bl; міняємо слова местаміah, P2; P2 на наступне слово
mov P1, ah; P1 = P2P2, al;
mov Flag, 1; Прапор обміну установітьMCMP; Продовжуємо порівнювати: ah, P2; P2 на наступне слово
mov P1, ah; P1 = P2P2, al;
jmp MCMP; Продовжуємо порівнювати:; Вихід ; Відновлення регістрів
; ******** Перевірка на кінець пропозиції **************************** macro ofset ; Зберегти старі значення регістровsi, MyString; Завантажити адресу початку строкіbx, bx; Очищення BX
mov bl, of...
