Hook code fragment

        move.b  enmsx+3,d0
        cmp.b   #$c1,d0
        bpl.s   .play_5812
        subq.b  #1,d1
.play_5812:
        move.b  d1,enmw7+1
        move.b  #$18,enmno+1
        bsr chr_move_int
        rts

.play_5814:
        move.b  #$84,ata_req
        moveq   #$18,d1
        btst    #7,joy1+1
        beq.s   .play_5818
        mo