genweap_srou
	s_start_strat

	a16
	lda	allst
	pha
	a8
	stx	allst

	s_make_obj	#nullshape,.badobj

	a16
	pla
	sta	allst
	a8

	s_set_alptrs	y,path_istrat,hit_istrat,explode_istrat
	s_set_aldata	y,#1,#1
	jsl		gen_weapon_l
	s_set_alsflag	y,realobj	; test
	s_set_alsflag	y,notslope
	s_set_alsflag	y,dontexplode

	s_set_alcollflag	y,WEAPON
	s_init_anim		y,#0
	s_set_alsflag		y,noviewcheck
	s_set_alptrs		y,path_istrat,hit_istrat,explode_istrat

	sec
	rts

.badobj
	a16
	pla
	sta	allst
	a8

	clc
	rts