.CHARSET 1251 ; Файл primgui4 ; Пример работы с графическим интерфейсом пользователя ; Пример вывода формы с текстовым сообщением ; Версия 1.0 от 12.03.14 ; Компилятор mkl2mkp v0.27+ ; ====================================================== Начало программы .ORG 0 CX ; Обнулить RX и сбросить признак ввода числа PP M 9202 ; Текущая форма - 0 PP M 9203 ; Активный элемент - 0 1 PP M 9200 ; Разрешение графического интерфейса .NUML TFORM ; Адрес на первой странице PP M 9201 ; Главная таблица форм == TFORM 64 ; Код принудительной перерисовки формы PP M 9208 ; Перерисовать форму A1: GOTO A1 ; Бесконечный цикл ;======= Тексты строк могут располагаться в произвольном месте памяти F0T1: .TEXT "Пример формы" ; Нулевой байт для окончания строки - первый в таблице форм ;===== Главная таблица форм TFORM: .DB 0 ; в этой программе только одна форма (с номером 0) .DA F0 ; адрес начала формы 0 .END ; конец таблицы ;===== Форма 0 ; Заголовок формы F0: .FORM 0, F0DE, F0PI, F0PO, F0PL, F0PR, F0RI, F0KM ; максимальный элемент и таблица смещений F0DE: F0PI: F0PO: F0PL: F0PR: .DB 0 ; Запрет обработки F0RI: ; основная программа экранной формы .TAB 32, 20 ; позиция (X=32,Y=0) .TXTP 16, F0T1 ; TXTP - вывести строку из области памяти программ ; атрибут 16 - перерисовка, расстояние между символами 1 ; F0T1 - адрес строки F0KM0: .END ; конец программы ГИ F0KM: ; Таблица смещений программ элементов .DBB F0KM0 .ENDP