Освой компьютер
lea ggtext(PC),A1
moveq.l #30,D0
moveq.l #60,D1
jsr printitext(A6)
rts draw:
move.l intbase(PC),A6
move.l windowhd(PC),A0
move.l 50(A0),A0
lea image(PC),A0
move.l #200,D0
move.l #100,D1
jsr drawimage(A6)
rts borderdraw: ;* нарисовать бордюр
move.l intbase(PC),A6
move.l windowhd(PC),A2
move.l 50(A0),A0
jsr DrawBorder(A6)
rts screen_defs:
dc.w 0,0
dc.w 640,200
dc.w 4
dc.b 0
dc.b 1
dc.w $800
dc.w 15
dc.l 0
dc.l titel
dc.l 0
dc.l 0 windowdef:
dc.w 10,20
dc.w 300,150
dc.b 0,1
dc.l $300
dc.l $100F
dc.l gadget
dc.l 0
dc.l windname screenhd: dc.l 0
dc.l 0
dc.w 200,40,600,200
dc.w $FF btext:
dc.b 3,3
dc.b 0
align
dc.w 10,10
dc.l 0
dc.l bodytxt
dc.l 0 bodytxt: dc.b \"Requester text\",0
align
ltext:
dc.b 3,1
dc.b 0
align
dc.w 5,3
dc.l 0
dc.l lefttxt
dc.l 0 lefttxt: dc.b \"left\",0
align rtext:
dc.b 0,1
dc.b 0
align
dc.w 5,3
dc.l 0
dc.l righttxt
dc.l 0 righttxt: dc.b \"right\",0
align titel: dc.b \"User Screen\",0
AMIGA: ПРОГРАММИРОВАНИЕ НА АССЕМБЛЕРЕ.
|