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

Программирование на Ассемблере


ей с диском на низком
уровне:
;***** Track disk - Basic function I/O, 86, S.D *****
ILABEL ASSEMPRO:Includes/amiga.i ;только для AssemPro
OpenLib = -552
CloseLib = -414
ExecBase = 4
* Вызовы AmigaDOS
Open = -30
Close = -36
OpenDevice = -444
CloseDevice = -450
SendIO = -462
Read = -42
Write = -48
WaitForChar = -204
mode_old = 1005
INIT_AMIGA ;только для AssemPro
run:

bsr.s init ;инициализация

bra test ;основная программа
init:

move.l ExecBase,A6

lea dosname(PC),A1

moveq #0,D0

jsr OpenLib(A6) ;открываем dos.library

move.l D0,dosbase

beq error1 ;ошибка! нет dos.library???
lea diskio(PC),A1

move.l #diskrep,14(A1) ;порт ввода/вывода

moveq #0,D0 ;номер устройства

moveq #0,D1 ;флаги

lea trddevice(PC),A0 ;имя \"trackdisk.device\"

jsr OpenDevice(A6) ;открываем trackdisk

tst.l D0 ;ошибка?

bne error2 ;да! странно...
bp:

lea consolname(PC),A1

move.l #mode_old,D0

bsr.s openfile ;открываем окно (консоль)

beq error3 ;ошибка!

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

bsr.s accdisk ;работаем с trackdisk
bsr.s getchr ;ждем нажатия клавиши

bra.s qu ;выход
qu:

move.l ExecBase,A6

lea diskio(PC),A1 ;загружаем адрес

 

 

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