SUBROUTINE ARMCNT
C
	INCLUDE 'EMPIRE.INC/NOLIST'
C
	CALL MAP(6)
	DO 100 I=1,20
100	ARMTOT(I)=0
	DO 300 I=1,LIMIT(9)
	IF (CODEFU(I).NE.1) GOTO 300
	ILA=CODELA(I)
	DO 200 I2=1,20
200	IF (TARGET(I2).EQ.ILA) ARMTOT(I2)=ARMTOT(I2)+1
300	CONTINUE
	RETURN
	END