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

xecBase,A6 ;адрес exec

lea talkio(PC),A1 ;указатель на IO-структуру

jsr AbortIO(A6) ;закончить вывод
move.l conhandle(PC),D1

move.l dosbase(PC),A6

jsr Close(A6) ;закрываем окно

move.l dosbase(PC),D1

move.l ExecBase,A6

jsr CloseLib(A6) ;закрываем dos.library
lea talkio(PC),A1

jsr CloseDevice(A6) ;закрываем narrator.device
move.l tranbase(PC),A1

jsr CloseLib(A6) ;закрываем translator.library
rts ;* конец программы

Блок данных для нашей программы выглядит так:
mytext: dc.b \'This is a test text!\',10,13,10,13,0
dosname: dc.b \'dos.library\',0
transname: dc.b \'translator.library\',0
consolname: dc.b \'RAW:0/100/640/100/** Test window\',0
nardevice: dc.b \'narrator.device\',0

align
dosbase: dc.l 0
transbase: dc.l 0
amaps: dc.b 3,5,10,12

align
conhandle: dc.l 0
talkio: blk.l 20,0
nwrrep: blk.l 8,0
intext: dc.b \'hello, i am the amiga talking to you\',0

align
outtext: blk.b 512,0

Речевой синтезатор Amiga имеет набор параметров, изменяя которые Вы можете
получать различные интересные эффекты. Параметры narrator.device задаются
в специальном блоке - talkio, который имеет следующую структуру:
Смещение Длина Назначение
-----------------------------------------------------------------------
** Данные порта **
0 L Указатель на следующий блок
4 L Указатель на последний блок
8 B Тип I/O
9 B Приоритет
10 L Указатель на имя I/O
14 L