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

п. 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