.text
    .globl _start
_start:
base_a0:
    move.w %sr,-(%sp)
    movea.l #0x18e0c,%a0
    tst.w 0xffffd050
    bne.s 1f
    movea.l #0x2fe600,%a0
1:  move.w (%sp)+,%ccr
    rts
base_a1:
    move.w %sr,-(%sp)
    movea.l #0x18e0c,%a1
    tst.w 0xffffd050
    bne.s 1f
    movea.l #0x2fe600,%a1
1:  move.w (%sp)+,%ccr
    rts
base_a3:
    move.w %sr,-(%sp)
    movea.l #0x18e0c,%a3
    tst.w 0xffffd050
    bne.s 1f
    movea.l #0x2fe600,%a3
1:  move.w (%sp)+,%ccr
    rts
award:
    tst.w 0xffffd050
    bne.s 3f
    cmpi.b #40,(%a1) | Fighting / instigator family
    beq.s 2f
    cmpi.w #4,%d2    | injury Elbowing event is four minutes
    bge.s 2f
    moveq #1,%d2
    bra.s 3f
2:  moveq #2,%d2
3:  movem.l %d0-%d1/%a1-%a4,-(%sp)
    jsr 0x14a94
    jmp 0x122a2