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

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


lea IntName(PC),A1 ;загружаем имя

;intuition.library

moveq #0,D0 ;версия - любая

jsr OpenLib(A6) ;открываем библиотеку

move.l D0,intbase ;сохраняем базовый адрес

rts
closeint: ;* закрыть Intuition

move.l ExecBase,A6

move.l intbase(PC),A1 ;базовый адрес

;intuition.library

jsr CloseLib(A6) ;закрываем библиотеку

rts
scropen: ;* открыть экран

move.l intbase(PC),A6

lea screen_defs(PC),A0 ;параметры экрана

jsr OpenScreen(A6) ;открываем экран

move.l D0,screenhd ;сохраняем идентификатор

rts
scrclose: ;* закрыть экран

move.l intbase(PC),A6

move.l screenhd(PC),A0 ;идентификатор экрана - в A0

jsr CloseScreen(A6) ;закрываем экран

rts
scrmove: ;передвинуть экран

move.l intbase(PC),A6

move.l screenhd(PC),A0 ;идентификатор экрана - в A0

moveq.l #0,D0 ;горизонтальное смещение = 0

jsr MoveScreen(A6) ;двигаем экран

rts ;все
screen_defs: ;* начало таблицы параметров

;экрана
x_pos: dc.w 0 ;X-координата экрана
y_pos: dc.w 0 ;Y-координата экрана
width: dc.w 320 ;ширина (размер по X)
height: dc.w 200 ;высота (размер по Y)
depth: dc.w 4 ;число битпланов
detail_pen: dc.b 0 ;цвет заголовка
block_pen: dc.b 1 ;цвет фона
view_modes: dc.w 2 ;видео-режимы
screen_type: dc.w 15 ;тип экрана
font: dc.l 0 ;шрифт
title: dc.l sname ;указатель на имя (заголовок)

;экрана
gadgets: dc.l 0 ;список управляющих символов
bitmap: dc.l 0 ;битовая карта экрана
sname: dc.b \'Our Screen\',0 ;ASCII-строка - имя экрана
align.w
screenhd: dc.l 0 ;идентификатор экрана
intbase: dc.l 0 ;базовый адрес intuition
end
Рассмотрим еще одну простую функцию Intuition - DisplayBeep (смещение -96 в
intuition.library), параметром которой является идентификатор экрана.

 

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

 

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