Amiga. Вычислительная техника
Меню сайта
Главная
Amiga
Amiga Corporation
Модельный ряд
История развития
Аппаратная платформа
Операционные системы
Эмуляция
AMIGA # 1
Программирование на Ассемблере
Организация процессоров
Методы защиты информации
Компьютерные новеллы
Боятся ли компьютеры адского пламени?
Виртуальная реальность
Корпоративные сети
Телекоммуникационные сети
Архитектура ЭВМ
ЕС ЭВМ
Рождение ЭВМ
Компьютер
Гарвардская архитектура
Современные высокопроизводительные компьютеры
Дорога в будущее
Vista
Инфоpматика
ЭВМ
Операционные системы
Linux
Windows
Освой компьютер
Макинтош
Набор текста
Поколения
Компьютерная грамотность
Устройство компьютера
Железо
Графика
Звук
Ремонт
Сети
Программирование
Информационные технологии
Криптография
Микроэлектроника
Истории
 
 

Освой компьютер


;следующий пункт

tst.l (A0)+ ;увеличиваем указатель списка

tst.l (A0) ;конец списка?

beq.s setmenu1 ;да, выход

move.l A1,(A2) ;иначе сохраняем указатель на

;следующее меню верхнего

;уровня

bra menuloop ;цикл
setmenu1: ;* создать меню

move.l intbase(PC),A6 ;база intuition.library

move.l windowhd(PC),A0 ;идентификатор окна

lea menu(PC),A1 ;указатель на блок данных меню

jsr SetMenuStrip(A6) ;создаем меню

rts ;все!
В конце программы, как всегда, приводится блок переменных и констант:
mentab: ;тестовый список меню

dc.l menu1 ;заголовок первого меню

dc.l mp11,mp12,mp13 ;пункты первого меню

dc.l 0 ;конец списка пунктов

dc.l menu2 ;заголовок второго меню

dc.l mp21,mp22,mp23 ;пункты второго меню

dc.l 0 ;конец списка пунктов

dc.l 0 ;конец списка меню
;** Menu Text **
menu1: dc.b \'Menu1\',0 ;заголовок первого меню
mp11: dc.b \'Point11\',0 ;пункты первого меню
mp12: dc.b \'Point12\',0
mp13: dc.b \'Point13\',0
menu2: dc.b \'Menu2\',0 ;заголовок второго меню
mp21: dc.b \'Point21\',0 ;пункты второго меню
mp22: dc.b \'Point22\',0
mp23: dc.b \'Point23\',0

align
;** Storage space for menu structure **
menu: blk.w 500 ;место для блоков данных
Попробуйте изменить эту программу так, чтобы она допускала использование
\"горячих\" клавиш.

 

AMIGA: ПРОГРАММИРОВАНИЕ НА АССЕМБЛЕРЕ.

 

© 2010 Amigo. All Rights Reserved
Создание сайтов ЕкатеринбургШаблоны сайтовПоиск товаров - справочник цен, каталог магазинов, прайс-листыБесплатные шаблоны дизайна компьютерных сайтов
Hosted by uCoz