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

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


п. 5.3)). Определим для начала основные действия
программы:
1. Открыть библиотеку intuition.library
2. Открыть экран
3. Обрабатывать джойстик и соответствующим образом перемещать экран
4. Закрыть экран
5. Закрыть библиотеку intuition.library
И, наконец, приведем полный листинг самой программы:
;** Demo program to open and move a screen (7.1) **
MoveScreen = -162
OpenScreen = -198
CloseScreen = -66
CloseLibrary = -414
OpenLibrary = -552
ExecBase = 4
joy2 = $DFF00C ;адрес порта #2 (джойстик)
fire = $BFE001 ;кнопка: бит 7
run:

bsr openint ;открываем intuition.library

bsr scropen ;открываем экран

move joy2,D6 ;сохраняем состояние джойстика
loop:

tst.b fire ;проверяем нажатие кнопки

bpl.s ende ;нажата = выход

move joy2,D0 ;текущее состояние джойстика

sub D6,D0

cmp #$0100,D0 ;вверх?

bne.s noup ;нет...

moveq #-1,D1 ;иначе смещение по Y = -1

bsr.s scrmove ;сдвигаем экран

bra.s loop ;цикл
noup:

cmp #$0001,D0 ;вниз?

bne.s loop ;нет, цикл

moveq #1,D1 ;иначе смещение по Y = 1

bsr.s scrmove ;сдвигаем экран
ende:

bsr.s scrclose ;закрываем экран

bsr.s closeint ;закрываем intuition.library

rts ;все!
openint: ;* открыть и инициализировать

;* Intuition

move.l ExecBase,A6

 

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

 

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