Освой компьютер

вать

;* Intuition

move.l ExecBase,A6

lea IntName(PC),A1
moveq #0,D0

jsr OpenLib(A6)

move.l D0,intbase

rts
closeint: ;* закрыть Intuition

move.l ExecBase,A6

move.l intbase(PC),A1
jsr CloseLib(A6)

rts
scropen: ;* открыть экран

move.l intbase(PC),A6

lea screen_defs(PC),A0

jsr OpenScreen(A6)

move.l D0,screenhd

rts
scrclose: ;* закрыть экран

move.l intbase(PC),A6

move.l screenhd(PC),A0

jsr CloseScreen(A6)

rts
scrmove: ;передвинуть экран

move.l intbase(PC),A6

move.l screenhd(PC),A0

moveq.l #0,D0

jsr MoveScreen(A6)

rts
windopen: ;* открываем окно

move.l intbase(PC),A6

lea windowdefs(PC),A0
jsr OpenWindow(A6)

move.l D0,windowhd

rts
windowclose: ;* закрываем окно

move.l intbase(PC),A6

move.l windowhd(PC),A0

jsr CloseWindow(A6)

rts
request: ;* выводим реквестер

move.l windowhd(PC),A0

lea btext(PC),A1

lea ltext(PC),A2

lea rtext(PC),A3

moveq.l #0,D0

moveq.l #0,D1

move.l #180,D2

moveq.l #80,D3

move.l intbase(PC),A6

jsr autorequest(A6)

rts
setmenu: ;* создает и инициализирует блоки