;registered as FX12 - STANDARD NODDING ALIEN

;***********************
;*** NODDING SNALIEN ***
;***********************
.FX12	
	JP C,TV5
	LD A,(SHIPX)
	CP C
	LD L,1
	JR NC,FX12G
 	LD L,0
FX12G	
	LD A,(DE)
	AND 254
 	OR L
	LD (DE),A
 	LD A,(IY+8)
 	AND 1
 	JP Z,FX1A
 	PUSH BC:PUSH DE
	LD H,B
	LD L,C
	INC H
 	INC L
 	LD A,(SHIPY)
	CP H
	JR C,FX12A
	INC B
 	INC H
 	INC H
 	JR FX12B
FX12A	DEC B
	DEC H
 	DEC H
 FX12B	LD A,(SHIPX)
 	CP L
	JR C,FX12C
	INC C
 	INC L
 	INC L
 	JR FX12D
FX12C	DEC C
	DEC L
 	DEC L
 FX12D	PUSH BC
	PUSH HL
 	POP BC
	
	call COLL_CheckPosition
	jr nc,FX12E
	or A
	jr nz,FX12E
	
	;CALL CONVERT
	;AND A
 	;JR Z,FX12E
	POP HL
	POP DE
	POP BC
	JP TV1
FX12E	
	POP BC:POP DE:POP HL
 	JP TV1