68040, Amiga

Assembler code

CODE:00010390 ; ===========================================================================
CODE:00010390
CODE:00010390 ; Segment type: Pure code
CODE:00010390 ; segment "CODE"
CODE:00010390
CODE:00010390 ; =============== S U B R O U T I N E =======================================
CODE:00010390
CODE:00010390 ; Attributes: noreturn bp-based frame
CODE:00010390
CODE:00010390 _main:                                  ; CODE XREF: startup+CA↑p
CODE:00010390                                         ; startup:domain↑p
CODE:00010390
CODE:00010390 var_4           = -4
CODE:00010390
CODE:00010390                 link    a6,#-4
CODE:00010394                 jsr     _Init
CODE:0001039A                 jsr     _InitTrace
CODE:000103A0
CODE:000103A0 loc_103A0:                              ; CODE XREF: _main+182↓j
CODE:000103A0                                         ; _main+18C↓j
CODE:000103A0                 jsr     _WaitToAnimate
CODE:000103A6                 jsr     _ClearControl
CODE:000103AC                 moveq   #2,d0
CODE:000103AE                 move.l  d0,-(sp)
CODE:000103B0                 jsr     sub_1E88C
CODE:000103B6                 addq.l  #4,sp
CODE:000103B8                 moveq   #4,d0
CODE:000103BA                 move.l  d0,-(sp)
CODE:000103BC                 jsr     sub_1E88C
CODE:000103C2                 addq.l  #4,sp
CODE:000103C4                 jsr     _PollJoy
CODE:000103CA                 jsr     _UserIn
CODE:000103D0                 tst.l   (dword_2052A).l
CODE:000103D6                 bne.s   loc_103EA
CODE:000103D8                 movea.l (_aniObj).l,a0