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

ирующей
рассмотренные средства Intuition по созданию графических интерфейсов.
;7_Intuition.asm
;** Demo-Program for working with intuition **
movescreen = -162
openscreen = -198
closescreen = -66
openwindow = -204
closewindow = -72
autorequest = -348
setmenustrip = -264
clearmenustrip = -54
printitext = -216
drawimage = -114
drawborder = -108
displaybeep = -96
closelibrary = -414
openlib = -552
execbase = 4
getmsg = -372
joy2 = $dff00c
fire = $bfe001
run:

bsr openint

bsr scropen

bsr windopen

bsr setmenu

bsr print
lea border(PC),A1

moveq #22,D0

moveq #30,D1

bsr borderdraw
bsr draw
bsr request
loop:

move.l execbase,A6

move.l windowhd(PC),A0

move.l 86(A0),A0 ;пользовательский порт

jsr GetMsg(A6)

tst.l D0

beq.s loop ;события не было

move.l D0,A0

move.l $16(A0),msg ;событие

move.l msg(PC),D6 ;для тестирования

move.l D6,D7

lsr #8,D7

lsr #3,D7

moveq #0,D5

roxr #1,D6

roxl #1,D5

and.l #$7F,D6

cmp #$7F,D6

beq.s loop

lsr #4,D6

cmp #1,D6

bne.s no1

move.l intbase(PC),A6

move.l screenhd(PC),A0

jsr displaybeep(A6)
no1:

cmp #0,D6

bne.s loop
ende:

bsr clearmenu

bsr windclose

bsr scrclose

bsr closeint

rts
openint: ;* открыть и инициализиро