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

***** (очередная \"кривая\" программа)
OpenLib = -552
CloseLib = -414
;ExecBase = 4 ;в AssemPro уже определено
;* Функции AmigaDos:
Open = -30
Close = -36
IoErr = -132 ;получение дополнительной

;информации об ошибках DOS
Write = -48
mode_old = 1005
ILABEL Assempro:includes/Amiga.l ;только для AssemPro!
INIT_AMIGA ;только для AssemPro
run:

bsr.s init ;создание окна итд.

bsr test ;основная программа

nop ;одному автору известно, зачем

;здесь нужен nop

bra.s qu ;выход из программы
test:

move.l #title,D0

bsr.s pmsg ;печать текста в окне

bsr.s pcrlf ;перевод строки
rts ;возврат
init:

move.l ExecBase,A6 ;базовый адрес EXEC
lea dosname(PC),A1 ;\'dos.library\'

moveq #0,D0 ;годится любая версия

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

move.l D0,dosbase

beq.s error1 ;ошибка
lea consolname(PC),A1 ;описание окна

move.l #mode_old,D0

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

beq.s error ;ошибка

move.l D0,conhandle
rts
pmsg: ;печать сообщения по (D0)

movem.l d0-d7/a0-a6,-(SP)

move.l D0,A0

move.l A0,D2

moveq #0,D3
ploop: ;цикл вычис