WALKING
	JSL $01A7DC
	JSL $01802A
	LDA $1588,x
	AND #$08
	BEQ NOCEIL
	STZ $AA,x
NOCEIL	LDA $1FE2,x
	BEQ NOTLAND
	LDA #$04
	STA $1602,x
	STZ $AA,x
	STZ $B6,x
	RTS
NOTLAND	LDA $163E,x
	BEQ NOSET
	LDA #$01
	STA $1510,x
NOSET	LDA $1510,x
	BEQ NOAIR
	LDA #$03
	STA $1602,x
	STZ $1540,x
	LDA $1588,x
	AND #$04
	BNE HITGND
	LDA $1588,x
	AND #$03
	BEQ NOWALLS
	LDY $157C,x
	LDA $E4,x
	CLC
	ADC XDIS,y
	STA $E4,x
	LDA $14E0,x
	ADC XDIS2,y
	STA $14E0,x
NOWALLS	RTS
NOAIR	LDA $1588,x
	AND #$04
	BEQ NOGND
	STZ $AA,x
	LDA $1510,x
	BEQ ONGND
HITGND	STZ $1510,x
	LDA #$08
	STA $1FE2,x
	STZ $1540,x
	STZ $B6,x
	RTS
NOGND	DEC $AA,x
	LDA #$01
	STA $1510,x
ONGND	INC $1570,x
	LDA $1540,x
	BEQ NOTIMER
	LDA $1570,x
	LSR A
	LSR A
	AND #$03
	TAY
	LDA WALKFRM,y
	STA $1602,x
	LDY $157C,x
	LDA XSPD,y
	STA $B6,x
	LDA $1588,x
	AND #$03
	BEQ RETURN0
	LDY $157C,x
	LDA $E4,x
	CLC
	ADC XDIS,y
	STA $E4,x
	LDA $14E0,x
	ADC XDIS2,y
	STA $14E0,x
	LDA #$04
	STA $163E,x
	LDA $1588,x
	AND #$04
	BEQ RETURN0
	LDA #$D0
	STA $AA,x
RETURN0	RTS