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

jsr Open(A6)

tst.l D0

rts
scankey: ;проверка нажатия клавиши

move.l conhandle(PC),D1

move.l #500,D2 ;время ожидания

move.l dosbase(PC),A6

jsr WaitForChar(A6)

tst.l D0

rts
getchr: ;чтение символа с клавиатуры

moveq.l #1,D3

move.l conhandle,D1

lea inbuff(PC),A1 ;буфер клавиатуры

move.l A1,D2

mvoe.l dosbase(PC),A6

jsr Read(A6)

moveq #0,D0

move.b inbuff(PC),D0

rts
accdisk:

lea diskio(PC),A1

move #2,28(A1) ;команда: READ

move.l #diskbuff,40(A1) ;адрес буфера чтения

move.l #2*512,36(A1) ;читаем два сектора

move.l #20*512,44(A1) ;смещение: 20 секторов

move.l ExecBase,A6

jsr SendIO(A6) ;посылаем команду

rts ;все!
dosname: dc.b \'dos.library\',0

align.w
dosbase: dc.l 0
consolname: dc.b \'RAW:0/100/640/100/** Test-Window S.D. V0.1\',0
trddevice: dc.b \'trackdisk.device\',0

align.w
conhandle: dc.l 0
inbuff: ds.b 8,0
diskio: ds.l 20,0
diskrep: ds.l 8,0
diskbuff: ds.b 512*2,0
end

Приведем пример законченной программы, работающей с диском на низком
уровне:
;***** 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