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

ей с диском на низком
уровне:
;***** 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 ;загружаем адрес