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