**************************************************************
*
* Software:		Jamie Rivett
* Initiated:		10/12/93
*
* COPYRIGHT (C) 1992 WILLIAMS ELECTRONICS GAMES, INC.
*
**************************************************************

	.file	"admseq1.asm"
	.title	"Adam Bomb animation sequences"
	.width	132
	.option	b,d,l,t
	.mnolist


	.include	"macros.h"
	.include	"mproc.equ"		;Mproc equates
	.include	"sys.equ"
	.include	"game.equ"
	.include	"plyr.equ"
	.include	"anim.equ"
	.include	"sound.h"

	.include	"adamimg.h"


******************************************************************************
* EXTERNAL REFERENCES

	;from ROPES.ASM
	.ref	rope_command

******************************************************************************
* SYMBOLS DEFINED IN THIS FILE

******************************************************************************
* EQUATES FOR THIS FILE

TSEC 	equ	53

#*****************************************************************************
*
* STANDS

 SUBR	adm_zip_anim
	WL	TSEC*60,A2ST2D+FR1
	.word	0

#STNA2_SPD	equ	6

 SUBR	adm_stand2_anim
 SUBR	adm_stand8_anim
	.word	ANI_SETMODE,MODE_NORMAL
	WL	#STNA2_SPD,A2ST2D+FR1
	WL	#STNA2_SPD,A2ST2D+FR2
	WL	#STNA2_SPD,A2ST2D+FR3
	WL	#STNA2_SPD,A2ST2D+FR4
	WL	#STNA2_SPD,A2ST2D+FR5
	WL	#STNA2_SPD,A2ST2D+FR6
	WL	#STNA2_SPD,A2ST2D+FR7
	WL	#STNA2_SPD,A2ST2D+FR8
	WL	#STNA2_SPD,A2ST2D+FR9
	WL	#STNA2_SPD,A2ST2D+FR10
	WL	#STNA2_SPD,A2ST2D+FR11
	WL	#STNA2_SPD,A2ST2D+FR12
	.word	ANI_REPEAT

#STNA4_SPD	equ	6
 SUBR	adm_stand4_anim
 SUBR	adm_stand6_anim
	.word	ANI_SETMODE,MODE_NORMAL
	WL	#STNA4_SPD,A4ST4J+FR1
	WL	#STNA4_SPD,A4ST4J+FR2
	WL	#STNA4_SPD,A4ST4J+FR3
	WL	#STNA4_SPD,A4ST4J+FR4
	WL	#STNA4_SPD,A4ST4J+FR5
	WL	#STNA4_SPD,A4ST4J+FR6
	WL	#STNA4_SPD,A4ST4J+FR7
	WL	#STNA4_SPD,A4ST4J+FR8
	WL	#STNA4_SPD,A4ST4J+FR9
	WL	#STNA4_SPD,A4ST4J+FR10
	WL	#STNA4_SPD,A4ST4J+FR11
	.word	ANI_REPEAT

#*****************************************************************************
*
* WALKING TORSOS

#TORSO2_SPD	equ	4

 SUBR	adm_torso2_anim
 SUBR	adm_torso8_anim
	WL	#TORSO2_SPD,A2TW2Z+FR1
	.word	ANI_REPEAT


#TORSO4_SPD	equ	4
 SUBR	adm_torso4_anim
 SUBR	adm_torso6_anim
	WL	#TORSO4_SPD,A4TW4Z+FR1
	WL	#TORSO4_SPD,A4TW4Z+FR2
	.word	ANI_REPEAT


#*****************************************************************************
*
* WALKS FACING #2

#W1F2_SPD	equ	2
 SUBR	adm_walk1_f2_anim
	WL	#W1F2_SPD,A2WL1A+FR1
	WL	#W1F2_SPD,A2WL1A+FR2
	WL	#W1F2_SPD,A2WL1A+FR3
	WL	#W1F2_SPD,A2WL1A+FR4
	WL	#W1F2_SPD,A2WL1A+FR5
	WL	#W1F2_SPD,A2WL1A+FR6
	WL	#W1F2_SPD,A2WL1A+FR7
	WL	#W1F2_SPD,A2WL1A+FR8
	WL	#W1F2_SPD,A2WL1A+FR9
	WL	#W1F2_SPD,A2WL1A+FR10
	WL	#W1F2_SPD,A2WL1A+FR11
	WL	#W1F2_SPD,A2WL1A+FR12
	WL	#W1F2_SPD,A2WL1A+FR13
	WL	#W1F2_SPD,A2WL1A+FR14
	WL	#W1F2_SPD,A2WL1A+FR15
	WL	#W1F2_SPD,A2WL1A+FR16
	WL	#W1F2_SPD,A2WL1A+FR17
	WL	#W1F2_SPD,A2WL1A+FR18
	.word	ANI_REPEAT

#W2F2_SPD	equ	2
 SUBR	adm_walk2_f2_anim
	WL	#W2F2_SPD,A2WL2B+FR1
	WL	#W2F2_SPD,A2WL2B+FR2
	WL	#W2F2_SPD,A2WL2B+FR3
	WL	#W2F2_SPD,A2WL2B+FR4
	WL	#W2F2_SPD,A2WL2B+FR5
	WL	#W2F2_SPD,A2WL2B+FR6
	WL	#W2F2_SPD,A2WL2B+FR7
	WL	#W2F2_SPD,A2WL2B+FR8
	WL	#W2F2_SPD,A2WL2B+FR9
	WL	#W2F2_SPD,A2WL2B+FR10
	WL	#W2F2_SPD,A2WL2B+FR11
	WL	#W2F2_SPD,A2WL2B+FR12
	WL	#W2F2_SPD,A2WL2B+FR13
	WL	#W2F2_SPD,A2WL2B+FR14
	WL	#W2F2_SPD,A2WL2B+FR15
	WL	#W2F2_SPD,A2WL2B+FR16
	WL	#W2F2_SPD,A2WL2B+FR17
	WL	#W2F2_SPD,A2WL2B+FR18
	WL	#W2F2_SPD,A2WL2B+FR19
	WL	#W2F2_SPD,A2WL2B+FR20
	.word	ANI_REPEAT

#W4F2_SPD	equ	2
 SUBR	adm_walk4_f2_anim
	WL	#W4F2_SPD,A2WL8B+FR1
	WL	#W4F2_SPD,A2WL8B+FR2
	WL	#W4F2_SPD,A2WL8B+FR3
	WL	#W4F2_SPD,A2WL8B+FR4
	WL	#W4F2_SPD,A2WL8B+FR5
	WL	#W4F2_SPD,A2WL8B+FR6
	WL	#W4F2_SPD,A2WL8B+FR7
	WL	#W4F2_SPD,A2WL8B+FR8
	WL	#W4F2_SPD,A2WL8B+FR9
	WL	#W4F2_SPD,A2WL8B+FR10
	WL	#W4F2_SPD,A2WL8B+FR11
	WL	#W4F2_SPD,A2WL8B+FR12
	WL	#W4F2_SPD,A2WL8B+FR13
	WL	#W4F2_SPD,A2WL8B+FR14
	WL	#W4F2_SPD,A2WL8B+FR15
	WL	#W4F2_SPD,A2WL8B+FR16
	WL	#W4F2_SPD,A2WL8B+FR17
	.word	ANI_REPEAT

#W5F2_SPD	equ	2
 SUBR	adm_walk5_f2_anim
	WL	#W5F2_SPD,A2WL1A+FR18
	WL	#W5F2_SPD,A2WL1A+FR17
	WL	#W5F2_SPD,A2WL1A+FR16
	WL	#W5F2_SPD,A2WL1A+FR15
	WL	#W5F2_SPD,A2WL1A+FR14
	WL	#W5F2_SPD,A2WL1A+FR13
	WL	#W5F2_SPD,A2WL1A+FR12
	WL	#W5F2_SPD,A2WL1A+FR11
	WL	#W5F2_SPD,A2WL1A+FR10
	WL	#W5F2_SPD,A2WL1A+FR9
	WL	#W5F2_SPD,A2WL1A+FR8
	WL	#W5F2_SPD,A2WL1A+FR7
	WL	#W5F2_SPD,A2WL1A+FR6
	WL	#W5F2_SPD,A2WL1A+FR5
	WL	#W5F2_SPD,A2WL1A+FR4
	WL	#W5F2_SPD,A2WL1A+FR3
	WL	#W5F2_SPD,A2WL1A+FR2
	WL	#W5F2_SPD,A2WL1A+FR1
	.word	ANI_REPEAT

#W6F2_SPD	equ	2
 SUBR	adm_walk6_f2_anim
	WL	#W6F2_SPD,A2WL2B+FR20
	WL	#W6F2_SPD,A2WL2B+FR19
	WL	#W6F2_SPD,A2WL2B+FR18
	WL	#W6F2_SPD,A2WL2B+FR17
	WL	#W6F2_SPD,A2WL2B+FR16
	WL	#W6F2_SPD,A2WL2B+FR15
	WL	#W6F2_SPD,A2WL2B+FR14
	WL	#W6F2_SPD,A2WL2B+FR13
	WL	#W6F2_SPD,A2WL2B+FR12
	WL	#W6F2_SPD,A2WL2B+FR11
	WL	#W6F2_SPD,A2WL2B+FR10
	WL	#W6F2_SPD,A2WL2B+FR9
	WL	#W6F2_SPD,A2WL2B+FR8
	WL	#W6F2_SPD,A2WL2B+FR7
	WL	#W6F2_SPD,A2WL2B+FR6
	WL	#W6F2_SPD,A2WL2B+FR5
	WL	#W6F2_SPD,A2WL2B+FR4
	WL	#W6F2_SPD,A2WL2B+FR3
	WL	#W6F2_SPD,A2WL2B+FR2
	WL	#W6F2_SPD,A2WL2B+FR1
	.word	ANI_REPEAT


#W8F2_SPD	equ	2
 SUBR	adm_walk8_f2_anim
	WL	#W8F2_SPD,A2WL8B+FR17
	WL	#W8F2_SPD,A2WL8B+FR16
	WL	#W8F2_SPD,A2WL8B+FR15
	WL	#W8F2_SPD,A2WL8B+FR14
	WL	#W8F2_SPD,A2WL8B+FR13
	WL	#W8F2_SPD,A2WL8B+FR12
	WL	#W8F2_SPD,A2WL8B+FR11
	WL	#W8F2_SPD,A2WL8B+FR10
	WL	#W8F2_SPD,A2WL8B+FR9
	WL	#W8F2_SPD,A2WL8B+FR8
	WL	#W8F2_SPD,A2WL8B+FR7
	WL	#W8F2_SPD,A2WL8B+FR6
	WL	#W8F2_SPD,A2WL8B+FR5
	WL	#W8F2_SPD,A2WL8B+FR4
	WL	#W8F2_SPD,A2WL8B+FR3
	WL	#W8F2_SPD,A2WL8B+FR2
	WL	#W8F2_SPD,A2WL8B+FR1
	.word	ANI_REPEAT

#*****************************************************************************
*
* WALKS FACING #4

#W1F4_SPD	equ	2
 SUBR	adm_walk1_f4_anim
	WL	#W1F4_SPD,A4WL5B+FR20
	WL	#W1F4_SPD,A4WL5B+FR19
	WL	#W1F4_SPD,A4WL5B+FR18
	WL	#W1F4_SPD,A4WL5B+FR17
	WL	#W1F4_SPD,A4WL5B+FR16
	WL	#W1F4_SPD,A4WL5B+FR15
	WL	#W1F4_SPD,A4WL5B+FR14
	WL	#W1F4_SPD,A4WL5B+FR13
	WL	#W1F4_SPD,A4WL5B+FR12
	WL	#W1F4_SPD,A4WL5B+FR11
	WL	#W1F4_SPD,A4WL5B+FR10
	WL	#W1F4_SPD,A4WL5B+FR9
	WL	#W1F4_SPD,A4WL5B+FR8
	WL	#W1F4_SPD,A4WL5B+FR7
	WL	#W1F4_SPD,A4WL5B+FR6
	WL	#W1F4_SPD,A4WL5B+FR5
	WL	#W1F4_SPD,A4WL5B+FR4
	WL	#W1F4_SPD,A4WL5B+FR3
	WL	#W1F4_SPD,A4WL5B+FR2
	WL	#W1F4_SPD,A4WL5B+FR1
	.word	ANI_REPEAT

#W2F4_SPD	equ	2
 SUBR	adm_walk2_f4_anim
	WL	#W2F4_SPD,A4WL2B+FR1
	WL	#W2F4_SPD,A4WL2B+FR2
	WL	#W2F4_SPD,A4WL2B+FR3
	WL	#W2F4_SPD,A4WL2B+FR4
	WL	#W2F4_SPD,A4WL2B+FR5
	WL	#W2F4_SPD,A4WL2B+FR6
	WL	#W2F4_SPD,A4WL2B+FR7
	WL	#W2F4_SPD,A4WL2B+FR8
	WL	#W2F4_SPD,A4WL2B+FR9
	WL	#W2F4_SPD,A4WL2B+FR10
	WL	#W2F4_SPD,A4WL2B+FR11
	WL	#W2F4_SPD,A4WL2B+FR12
	WL	#W2F4_SPD,A4WL2B+FR13
	WL	#W2F4_SPD,A4WL2B+FR14
	WL	#W2F4_SPD,A4WL2B+FR15
	WL	#W2F4_SPD,A4WL2B+FR16
	WL	#W2F4_SPD,A4WL2B+FR17
	WL	#W2F4_SPD,A4WL2B+FR18
	WL	#W2F4_SPD,A4WL2B+FR19
	WL	#W2F4_SPD,A4WL2B+FR20
	.word	ANI_REPEAT

#W4F4_SPD	equ	2
 SUBR	adm_walk4_f4_anim
	WL	#W4F4_SPD,A4WL4A+FR1
	WL	#W4F4_SPD,A4WL4A+FR2
	WL	#W4F4_SPD,A4WL4A+FR3
	WL	#W4F4_SPD,A4WL4A+FR4
	WL	#W4F4_SPD,A4WL4A+FR5
	WL	#W4F4_SPD,A4WL4A+FR6
	WL	#W4F4_SPD,A4WL4A+FR7
	WL	#W4F4_SPD,A4WL4A+FR8
	WL	#W4F4_SPD,A4WL4A+FR9
	WL	#W4F4_SPD,A4WL4A+FR10
	WL	#W4F4_SPD,A4WL4A+FR11
	WL	#W4F4_SPD,A4WL4A+FR12
	WL	#W4F4_SPD,A4WL4A+FR13
	WL	#W4F4_SPD,A4WL4A+FR14
	WL	#W4F4_SPD,A4WL4A+FR15
	WL	#W4F4_SPD,A4WL4A+FR16
	WL	#W4F4_SPD,A4WL4A+FR17
	WL	#W4F4_SPD,A4WL4A+FR18
	WL	#W4F4_SPD,A4WL4A+FR19
	.word	ANI_REPEAT

#W5F4_SPD	equ	2
 SUBR	adm_walk5_f4_anim
	WL	#W5F4_SPD,A4WL5B+FR1
	WL	#W5F4_SPD,A4WL5B+FR2
	WL	#W5F4_SPD,A4WL5B+FR3
	WL	#W5F4_SPD,A4WL5B+FR4
	WL	#W5F4_SPD,A4WL5B+FR5
	WL	#W5F4_SPD,A4WL5B+FR6
	WL	#W5F4_SPD,A4WL5B+FR7
	WL	#W5F4_SPD,A4WL5B+FR8
	WL	#W5F4_SPD,A4WL5B+FR9
	WL	#W5F4_SPD,A4WL5B+FR10
	WL	#W5F4_SPD,A4WL5B+FR11
	WL	#W5F4_SPD,A4WL5B+FR12
	WL	#W5F4_SPD,A4WL5B+FR13
	WL	#W5F4_SPD,A4WL5B+FR14
	WL	#W5F4_SPD,A4WL5B+FR15
	WL	#W5F4_SPD,A4WL5B+FR16
	WL	#W5F4_SPD,A4WL5B+FR17
	WL	#W5F4_SPD,A4WL5B+FR18
	WL	#W5F4_SPD,A4WL5B+FR19
	WL	#W5F4_SPD,A4WL5B+FR20
	.word	ANI_REPEAT

#W6F4_SPD	equ	2
 SUBR	adm_walk6_f4_anim
	WL	#W6F4_SPD,A4WL2B+FR20
	WL	#W6F4_SPD,A4WL2B+FR19
	WL	#W6F4_SPD,A4WL2B+FR18
	WL	#W6F4_SPD,A4WL2B+FR17
	WL	#W6F4_SPD,A4WL2B+FR16
	WL	#W6F4_SPD,A4WL2B+FR15
	WL	#W6F4_SPD,A4WL2B+FR14
	WL	#W6F4_SPD,A4WL2B+FR13
	WL	#W6F4_SPD,A4WL2B+FR12
	WL	#W6F4_SPD,A4WL2B+FR11
	WL	#W6F4_SPD,A4WL2B+FR10
	WL	#W6F4_SPD,A4WL2B+FR9
	WL	#W6F4_SPD,A4WL2B+FR8
	WL	#W6F4_SPD,A4WL2B+FR7
	WL	#W6F4_SPD,A4WL2B+FR6
	WL	#W6F4_SPD,A4WL2B+FR5
	WL	#W6F4_SPD,A4WL2B+FR4
	WL	#W6F4_SPD,A4WL2B+FR3
	WL	#W6F4_SPD,A4WL2B+FR2
	WL	#W6F4_SPD,A4WL2B+FR1
	.word	ANI_REPEAT

#W8F4_SPD	equ	2
 SUBR	adm_walk8_f4_anim
	WL	#W8F4_SPD,A4WL4A+FR19
	WL	#W8F4_SPD,A4WL4A+FR18
	WL	#W8F4_SPD,A4WL4A+FR17
	WL	#W8F4_SPD,A4WL4A+FR16
	WL	#W8F4_SPD,A4WL4A+FR15
	WL	#W8F4_SPD,A4WL4A+FR14
	WL	#W8F4_SPD,A4WL4A+FR13
	WL	#W8F4_SPD,A4WL4A+FR12
	WL	#W8F4_SPD,A4WL4A+FR11
	WL	#W8F4_SPD,A4WL4A+FR10
	WL	#W8F4_SPD,A4WL4A+FR9
	WL	#W8F4_SPD,A4WL4A+FR8
	WL	#W8F4_SPD,A4WL4A+FR7
	WL	#W8F4_SPD,A4WL4A+FR6
	WL	#W8F4_SPD,A4WL4A+FR5
	WL	#W8F4_SPD,A4WL4A+FR4
	WL	#W8F4_SPD,A4WL4A+FR3
	WL	#W8F4_SPD,A4WL4A+FR2
	WL	#W8F4_SPD,A4WL4A+FR1
	.word	ANI_REPEAT

#*****************************************************************************
*
* TURNS (STANDS)


 SUBR	adm_2_to_4_turn_anim
 SUBR	adm_8_to_6_turn_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TT5Z+FR2
	WL	3,A1TT5Z+FR3
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_4_to_2_turn_anim
 SUBR	adm_6_to_8_turn_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TT5Z+FR3
	WL	3,A1TT5Z+FR2
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_4_to_6_turn_anim
 SUBR	adm_6_to_4_turn_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TT5Z+FR4
	.word	ANI_XFLIP
	WL	3,A1TT5Z+FR4
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_2_to_8_turn_anim
 SUBR	adm_8_to_2_turn_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TT5Z+FR1
	.word	ANI_XFLIP
	WL	3,A1TT5Z+FR1
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_4_to_8_turn_anim
 SUBR	adm_6_to_2_turn_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TT5Z+FR3
	WL	3,A1TT5Z+FR2
	WL	3,A1TT5Z+FR1
	.word	ANI_XFLIP
	WL	3,A1TT5Z+FR1
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_2_to_6_turn_anim
 SUBR	adm_8_to_4_turn_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TT5Z+FR1
	.word	ANI_XFLIP
	WL	3,A1TT5Z+FR1
	WL	3,A1TT5Z+FR2
	WL	3,A1TT5Z+FR3
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

#*****************************************************************************
*
* TURNS (TORSOS)


 SUBR	adm_2_to_4_turn2_anim
 SUBR	adm_8_to_6_turn2_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TR5Z+FR2
	.word	ANI_SETFACING
	WL	3,A1TR5Z+FR3
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_4_to_2_turn2_anim
 SUBR	adm_6_to_8_turn2_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TR5Z+FR3
	.word	ANI_SETFACING
	WL	3,A1TR5Z+FR2
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_4_to_6_turn2_anim
 SUBR	adm_6_to_4_turn2_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TR5Z+FR4
	.word	ANI_SETFACING		;ANI_XFLIP <- not primary anim
	WL	3,A1TR5Z+FR4
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_2_to_8_turn2_anim
 SUBR	adm_8_to_2_turn2_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	WL	3,A1TR5Z+FR1
	.word	ANI_SETFACING		;ANI_XFLIP <- not primary anim
	WL	3,A1TR5Z+FR1
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_4_to_8_turn2_anim
 SUBR	adm_6_to_2_turn2_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

 SUBR	adm_2_to_6_turn2_anim
 SUBR	adm_8_to_4_turn2_anim
	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP	;uninterruptable
	.word	ANI_SETSPEED,100h
	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END

#*****************************************************************************
*
* RUNNING IN #3

 SUBR	adm_run2_anim
	.word	ANI_SETMODE,MODE_NORMAL
	WL	ANI_GOTO,#lp0

#RUN_SPD	equ	2
 SUBR	adm_run_anim
	.word	ANI_SETMODE,MODE_UNINT			;uninterruptable
#lp0
#lp1
	WL	#RUN_SPD+1,A3RN3A+FR10
	WL	#RUN_SPD,A3RN3A+FR11
	WL	#RUN_SPD,A3RN3A+FR12
	WL	#RUN_SPD,A3RN3A+FR13
	WL	#RUN_SPD,A3RN3A+FR1
	WL	#RUN_SPD+1,A3RN3A+FR2
	WL	#RUN_SPD,A3RN3A+FR3
	.word	ANI_SOUND,run_snd
	.word	ANI_SETMODE,MODE_NORMAL		;clear UNINT bit
	WL	#RUN_SPD+1,A3RN3A+FR4
	WL	#RUN_SPD,A3RN3A+FR5
	WL	#RUN_SPD+1,A3RN3A+FR6
	WL	#RUN_SPD,A3RN3A+FR7
	WL	#RUN_SPD+1,A3RN3A+FR8
	.word	ANI_SOUND,run_snd
	WL	#RUN_SPD,A3RN3A+FR9

	WL	ANI_GOTO,#lp1


*
* OUT OF CONTROL RUN IN #3

 SUBR	adm_ocrun_anim
	.word	ANI_SETMODE,MODE_NOAUTOFLIP			;don't change facing
	WL	15,A3RN3A+FR1
#lp
	WL	#RUN_SPD+1,A3RN3A+FR10
	WL	#RUN_SPD,A3RN3A+FR11
	WL	#RUN_SPD,A3RN3A+FR12
	WL	#RUN_SPD,A3RN3A+FR13
	WL	#RUN_SPD,A3RN3A+FR1
	WL	#RUN_SPD+1,A3RN3A+FR2
	WL	#RUN_SPD,A3RN3A+FR3
	.word	ANI_SOUND,run_snd
	WL	#RUN_SPD+1,A3RN3A+FR4
	WL	#RUN_SPD,A3RN3A+FR5
	WL	#RUN_SPD+1,A3RN3A+FR6
	WL	#RUN_SPD,A3RN3A+FR7
	WL	#RUN_SPD+1,A3RN3A+FR8
	.word	ANI_SOUND,run_snd
	WL	#RUN_SPD,A3RN3A+FR9
	WL	ANI_GOTO,#lp

#*****************************************************************************
*
* BOUNCE OFF ROPES

 SUBR	adm_bounce_anim

	.word	ANI_SETMODE,MODE_UNINT+MODE_NOAUTOFLIP| MODE_NOCONFINE	;uninterruptable
	.word	ANI_ZEROVELS
	WL	4,A3BO3A+FR1

	WL	3,A3BO3A+FR2
	.word	ANI_BOUNCEROPE,0
	WL	1,A3BO3A+FR2

	WL	3,A3BO3A+FR3
	.word	ANI_BOUNCEROPE,1
	WL	1,A3BO3A+FR3

	WL	3,A3BO3A+FR4
	.word	ANI_BOUNCEROPE,2
	WL	1,A3BO3A+FR4

	WL	5,A3BO3A+FR5
	.word	ANI_BOUNCEROPE,4
	WL	1,A3BO3A+FR5

	WL	3,A3BO3A+FR6
	.word	ANI_BOUNCEROPE,-1			;release
	WL	1,A3BO3A+FR6

	WL	4,A3BO3A+FR7
	.word	ANI_SOUND,run_snd

	.word	ANI_SETMODE,MODE_NORMAL
	.word	ANI_END


#*****************************************************************************

 SUBR	adm_slave_image_table

	.long	#s2_grapple	;0	S2_GRAPPLE
	.long	#s4_grapple	;1	S4_GRAPPLE
	.long	#s3_grap_to_hh	;2	S3_GRAP_TO_HH
	.long	#s3_pile_driven	;3	S3_PILE_DRIVEN


#s2_grapple		;ABOMB #2 grapple
	.long	A2GR3Z+FR5	;0 (most forward)
	.long	A2GR3Z+FR6	;1
	.long	A2GR3Z+FR7	;2
	.long	A2GR3Z+FR8	;3 (most back)

#s4_grapple		;ABOMB #4 grapple
	.long	A4GR3B+FR7	;0 (most forward)
	.long	A4GR3B+FR6	;1
	.long	A4GR3B+FR5	;2
	.long	A4GR3B+FR4	;3 (most back)

#s3_grap_to_hh		;ABOMB #3 from grapple to head being held

#s3_pile_driven		;ABOMB #3 pile driven


******************************************************************************
	.end