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

;* данных меню

lea mentab(PC),A0
lea menu(PC),A1

moveq #10,D1
menuloop:

moveq #0,D2

move.l A1,A2

tst.l (A0)

beq setmenu1

clr.l (A1)+

move D1,(A1)+

add.l #70,D1

move.l #50,(A1)+

move.l #$A0001,(A1)+

move.l (A0)+,(A1)+

lea 12(A1),A3

move.l A3,(A1)+

clr.l (A1)+

clr.l (A1)+
itemloop:

tst.l (A0)

beq menuend
lea 54(A1),A3

move.l A3,(A1)+

move.l D2,(A1)+

add #10,D2

move.l #$5A000A,(A1)+

move #$52,(A1)+

clr.l (A1)+

lea 16(A1),A3

move.l A3,(A1)+
clr.l (A1)+

clr.l (A1)+

clr.l (A1)+

move #1,(A1)+
clr (A1)+

move.l #$50003,(A1)+

clr.l (A1)+

move.l (A0)+,(A1)+

clr.l (A1)+

bra.s itemloop
menuend:

clr.l -54(A1)
tst.l (A0)+

tst.l (A0)

beq.s setmenu1

move.l A1,(A2)
bra menuloop
setmenu1: ;* создать меню

move.l intbase(PC),A6

move.l windowhd(PC),A0

lea menu(PC),A1

jsr SetMenuStrip(A6)

rts
clearmenu: ;* уничтожаем меню

move.l intbase(PC),A6

move.l windowhd(PC),A0

lea menu(PC),A1

jsr clearmenustrip(A6)

rts
print: ;* печатаем текст

move.l intbase(PC),A6

move.l windowhd(PC),A0

move.l 50(A0),A0