;
; unkA - Unknown object from junk data in R11A__.MMD
;

obj_unkA:
    moveq   #0, d0
    move.b  $24(a0), d0
    move.w  table_unkA(pc, d0.w), d0
    jsr table_unkA(pc, d0.w)
    rts
;----------------------------------------------------------
    table_unkA:
        dc.w    obj_unkA_0-table_unkA
        dc.w    obj_unkA_1-table_unkA
        dc.w    obj_unkA_2-table_unkA
        dc.w    obj_unkA_3-table_unkA
        dc.w    obj_unkA_4-table_unkA
;----------------------------------------------------------
obj_unkA_0:
    addq.b  #2, $24(a0)
    ori.b   #4, 1(a0)
    move.b  #4, $18(a0)

obj_unkA_1:
    jsr $2043A4
    move.w  8(a0), d0
    cmp.w   8(a6), d0
    bcc.s   locret_unkA_0
    move.w  ($FFFFF72A).w, ($FFFFF728).w
    move.b  #$3C, $2A(a0)
    move.b  #$B4, $2B(a0)
    move.b  #$F0, $2B(a0)
    addq.b  #2, $24(a0)

locret_unkA_0:
    rts

;----------------------------------------------------------
obj_unkA_2:
    subq.b  #1, $2A(a0)
    bne.s   obj_unkA_3
    addq.b  #2, $24(a0)

obj_unkA_3:
    subq.b  #1, $2B(a0)
    bne.s   obj_unkA_4
    bset    #0, ($FFFFF7CC).w
    move.b  #0, $1C(a0)
    move.w  #$808, ($FFFFF602).w
    addq.b  #2, $24(a0)

obj_unkA_4:
    subq.b  #1, $2B(a0)
    bne.s   locret_unkA_1
    move.w  #2, ($FF1202).l

locret_unkA_1:
    rts