;----------------------------------------------------------------------------
s3_plist_sys_hist:
	dc.w	s3_blank_0-s3_plist_sys_hist
	dc.w	s3_blank_1-s3_plist_sys_hist
	dc.w	s3_blank_2-s3_plist_sys_hist
	dc.w	s3_blank_3-s3_plist_sys_hist
	dc.w	s3_blank_4-s3_plist_sys_hist
	dc.w	s3_blank_5-s3_plist_sys_hist
	dc.w	s3_blank_6-s3_plist_sys_hist
	dc.w	s3_blank_7-s3_plist_sys_hist
	dc.w	s3_Sirius-s3_plist_sys_hist
	dc.w	X49AA0-s3_plist_sys_hist
	dc.w	X49AA2-s3_plist_sys_hist
	dc.w	X49BB7-s3_plist_sys_hist
	dc.w	X49BB9-s3_plist_sys_hist
	dc.w	X49C81-s3_plist_sys_hist
	dc.w	X49CD5-s3_plist_sys_hist
	dc.w	X49DFA-s3_plist_sys_hist
	dc.w	X49F87-s3_plist_sys_hist
	dc.w	X4A0CF-s3_plist_sys_hist
	dc.w	X4A0D1-s3_plist_sys_hist
	dc.w	X4A236-s3_plist_sys_hist
	dc.w	X4A2FB-s3_plist_sys_hist
	dc.w	X4A3EC-s3_plist_sys_hist
	dc.w	X4A583-s3_plist_sys_hist
	dc.w	X4A671-s3_plist_sys_hist
	dc.w	X4A673-s3_plist_sys_hist
	dc.w	X4A748-s3_plist_sys_hist
	dc.w	X4A847-s3_plist_sys_hist
	dc.w	X4A9B7-s3_plist_sys_hist
	dc.w	X4AAFE-s3_plist_sys_hist
	dc.w	X4AC0A-s3_plist_sys_hist
	dc.w	X4ACDA-s3_plist_sys_hist
	dc.w	X4AD88-s3_plist_sys_hist
	dc.w	X4AD8A-s3_plist_sys_hist
	dc.w	X4AD8C-s3_plist_sys_hist
	dc.w	X4AE2A-s3_plist_sys_hist
	dc.w	X4AE2C-s3_plist_sys_hist
	dc.w	X4AEC2-s3_plist_sys_hist
	dc.w	X4AF68-s3_plist_sys_hist
;----------------------------------------------------------------------------
s3_data_beg:				;original beg = X4994A
s3_data_size	= ($4B020-$4994A)	;original end = L4B020
;----------------------------------------------------------------------------
	IFNE	NEW_gen_sys_hist
;----------------------------------------------------------------------------
s3_blank_0:
	dc.w	$2000
s3_blank_1:
	dc.w	$2000
s3_blank_2:
	dc.w	$2000
s3_blank_3:
	dc.w	$2000
s3_blank_4:
	dc.w	$2000
s3_blank_5:
	dc.w	$2000
s3_blank_6:
	dc.w	$2000
s3_blank_7:
	dc.w	$2000
RA_crc_ref:
s3_Sirius:
	dc.b	'First corporate system. Sirius corporation uses '
	dc.b	'plentiful cheap energy on Lucifer, from coils '
	dc.b	'around the planet, for synthesis of custom elements '
	dc.b	'(mainly military grad'
	dc.b	'e fuel) since 2350 and the first interstellar war.',$0D
	dc.b	'The system is not subject to Federal law.',NUL
X49AA0:	dc.b	' ',NUL
X49AA2:	dc.b	'Landfall has a most fascinating sky, '
	dc.b	'with no less than six stars bright '
	dc.b	'enough to cast shadows at some time.',$0D
	dc.b	'It also has the best preserved indigenous wildlife which '
	dc.b	'cohabits succesfully, often to the exclusion of introduced '
	dc.b	'life.'
	dc.b	NUL
X49BB7:	dc.b	' ',NUL
X49BB9:	dc.b	'Extreme humidity and native life make this an interesting '
	dc.b	'place to visit. Many exotic food stuffs are grown here. '
	dc.b	'The scenery is strikingly beautiful, though the wildlife c'
	dc.b	'an be a little dangerous.'
	dc.b	NUL
X49C81:	dc.b	'Only just sustaining life, the indigenous forms on this ar'
	dc.b	'id planet are very hardy.'
	dc.b	NUL
X49CD5:	dc.b	'In 2480 the Federation gave this system to the Guardians '
	dc.b	'of the Free Spirit. This religious sect believes in '
	dc.b	'maximum hardship and lives underground on several of the '
	dc.b	'inner planets of the system. ',CR
	dc.b	'By Federal law a permit from the Guardians is required to '
	dc.b	'enter the system.'
	dc.b	NUL
X49DFA:	dc.b	'Flare star system settled in 3017. '
	dc.b	'All surface habitations have flare shelters beneath them, '
	dc.b	'which should be entered on hearing the flare warnings. '
	dc.b	'The first planet, often known as Lenin, was terraformed b'
	dc.b	'y a group of rich idealists on condition it was run by str'
	dc.b	'ict communist principles. They endowed an enormous amount '
	dc.b	'of wealth to the system, which is now very rich.'
	dc.b	NUL
X49F87:	dc.b	'Prisoners are housed in underground cell complexes, and '
	dc.b	'used for manual mining work. Visitors are allowed, but an '
	dc.b	'entry permit must first be obtained.',$0D
	dc.b	'Rumours say that visitors can enter without permit, by '
	dc.b	'paying the guards to turn a blind eye, but officially '
	dc.b	'this is always denied.'
	dc.b	NUL
X4A0CF:	dc.b	' ',NUL
X4A0D1:	dc.b	'Eden was the first planet where liquid water was detected, '
	dc.b	'by spectroscopy in 2038, and it was a major driving '
	dc.b	'force for exploration of space. However, Eden turned '
	dc.b	'out to be extremely inhospitable with the added danger '
	dc.b	'of hard radiation from Proxima. There is now a small re'
	dc.b	'search station on Eden, but little else in the rest of the'
	dc.b	' system.'
	dc.b	NUL
X4A236:	dc.b	'Vast areas are used for growing custom grain crops in enor'
	dc.b	'mous quantities which are then exported to the surrounding'
	dc.b	' worlds.No manufacturing industry is permitted to avoid an'
	dc.b	'y polluting emmisions.'
	dc.b	NUL
X4A2FB:	dc.b	'The inner planet was terraformed by the Cisco corporation '
	dc.b	'into a beautiful theme park in 2958. The system does not c'
	dc.b	'ome under Federal law, and a wide range of exotic delights'
	dc.b	' are available, including historic adventures staged using'
	dc.b	' actors.'
	dc.b	NUL
X4A3EC:	dc.b	'Scott was terraformed in 2329 as an agricultural '
	dc.b	'colony, but the temperature could not be sustained so it w'
	dc.b	'as abandoned in 2408 after a disease epidemic. The equator'
	dc.b	'ial belt was resettled in 2641 by settlers who liked the h'
	dc.b	'arsh environment, now famous for fishing and tourism. It i'
	dc.b	's particularly popular with industrial workers from ne'
	dc.b	'arby systems who otherwise live their whole lives indoors.'
	dc.b	NUL
X4A583:	dc.b	'Two planets terraformed here are both '
	dc.b	'largely given over to agricultural production and '
	dc.b	'ethically questionable cattle ranching. There is little man'
	dc.b	'ufacturing industry other than the production of the famou'
	dc.b	's bourbon.'
	dc.b	NUL
X4A671:	dc.b	' ',NUL
X4A673:	dc.b	'First interstellar colony, and first alien life '
	dc.b	'was discovered here. The last remnants are '
	dc.b	'now in zoo enclosures for tourists, as introduced life and '
	dc.b	'crops cover most of the surface and seas.'
	dc.b	NUL
X4A748:	dc.b	'Early life had just started to emerge on Arcturus 3 when '
	dc.b	'human settlers arrived in 2304. It has now been repla'
	dc.b	'ced by an Earth ecosystem, adapted to the red light. '
	dc.b	'Locals are confident their star will remain a red giant.'
	dc.b	NUL
X4A847:	dc.b	'System famous as both the historic birthplace of Humanity '
	dc.b	'and as the political capital of the Federation. A very exp'
	dc.b	'ensive and prestigious system to live in, and a popular to'
	dc.b	'urist venue. Most rich humans will visit Earth once in the'
	dc.b	'ir lives. Major corporations have their headquarters '
	dc.b	'on Mars, the main centre for administration, '
	dc.b	'terraformed in 2286.'
	dc.b	NUL
X4A9B7:	dc.b	'Imperial capital on Achenar 6d, known as Capitol by locals. '
	dc.b	'6c is still known as Conversion though it was terraf'
	dc.b	'ormed in 2696. 6b was terraformed in 2850 to accomodate a '
	dc.b	'population explosion which followed. Anyone without the '
	dc.b	'quirky Imperial accent is shunned, especially Federation '
	dc.b	'citizens.'
	dc.b	NUL
X4AAFE:	dc.b	'The system relies heavily on slavery to maintain the luxur'
	dc.b	'ious life style of the very wealthy ',$83,'lite. Many live'
	dc.b	' on great plantations, common on most Imperial '
	dc.b	'Worlds. The cities house the workers for the service indus'
	dc.b	'tries and the more exotic entertainments.'
	dc.b	NUL
X4AC0A:	dc.b	'The highly mechanised Imperial mines are renowned for '
	dc.b	'their efficiency. Slavery is also important for the routine '
	dc.b	'supervision of machinery in the unpleasant mining environment.'
	dc.b	NUL
X4ACDA:	dc.b	'Many Imperial worlds were terraformed during the last majo'
	dc.b	'r Imperial expansion 2950-3150, including this, and there '
	dc.b	'are many fine examples of architecture of the period.'
	dc.b	NUL
X4AD88:	dc.b	' ',NUL
X4AD8A:	dc.b	' ',NUL
X4AD8C:	dc.b	'Here the only laws are those enforced by crime syndicates. '
	dc.b	'It is thus highly recommended to avoid this system, if you '
	dc.b	'possibly can.'
	dc.b	NUL
X4AE2A:	dc.b	' ',NUL
X4AE2C:	dc.b	'Well known Imperial Naval Base. Most Imperial naval admini'
	dc.b	'stration is done here, and there are several outdoor t'
	dc.b	'raining camps on the planets.'
	dc.b	NUL
X4AEC2:	dc.b	'The main Federal Naval Base moved here from Anlave in '
	dc.b	'2983 after terraforming in the 2970s. It is a fine'
	dc.b	' training ground for planetary assault troops.'
	dc.b	NUL
X4AF68:	dc.b	'System famous for the giant Verrix.',CR
	dc.b	'Home of the hardy beast of burden now found through '
	dc.b	'human space, especially on emerging rim worlds.'
	dc.b	NUL
;----------------------------------------------------------------------------
gss_flag:	dc.b	0
;----------------------------------------------------------------------------
;Estimated freed bytes  = 503
;-------------------------------------
	EVEN
;-------------------------------------
randstep_init:
	moveq	#4,d1		;2
	and.b	gss_flag(pc),d1	;4
	addq.b	#1,d1		;2	;d1 = (gss_flag ? 5 : 1);  gss_adj
	swap	d2		;2	;d2 = sys_cnt.0
	move	d1,d2		;2	;d2 = sys_cnt.gss_adj
	swap	d2		;2	;d2 = gss_adj.sys_cnt
	cmp	#5,d1		;4
	beq.s	nu_randstep_set	;2
	move.l	d0,d1		;2
	swap	d1		;2
	bsr.s	ol_randstep_set	;2
	bsr.w	ol_randstep	;4
ol_randstep:
	movem.l	$039E(a6),d0/d1	;6
ol_randstep_set:
	add.l	d0,d1		;2
	rol.l	#3,d0		;2
	add.l	d1,d0		;2
	rol.l	#5,d1		;2
	movem.l	d0/d1,$039E(a6)	;6
	rts			;2
;-------------------------------------
;Byte count for randstep_init	;52
;-------------------------------------
	IFNE	NEW_gen_sys_star
randstep_d0d1:
	ENDC
;-------
	move.b	gss_flag(pc),d1		;4
	beq.s	ol_randstep		;2
nu_randstep:
	movem.l	$039E(a6),d0/d1		;6	;d0=fa.fb  d1=fc.ix
nu_randstep_store:
	movem.l	d3/a1,-(sp)		;4	;push d3/a1
	lea	RA_crc_ref(pc),a1	;4	;a0 -> RA_crc_ref
	move.l	d0,d3			;2	;d3=fa.fb
	move.l	(a1,d1),d0		;2	;d0=??:xa.xb:xc
	swap	d1			;2	;d1=ix.fc
	bsr.s	crc16_add_byte		;2	;d1=ix.gc
	exg	d1,d3			;2	;d3=ix.gc  d1=fa.fb
	bsr.s	crc16_add_ror_byte	;2	;d1=fa.gb  d0=00:xa.xc:xb
	move	d3,d0			;2	;d0=00:xa.gc
	move	d1,d3			;2	;d3=ix.gb
	swap	d0			;2	;d0=gc.00:xa
	swap	d1			;2	;d1=gb.fa
	bsr.s	crc16_add_byte		;2	;d1=gb.ga
	move	d1,d0			;2	;d0=gc.ga
	move.l	d3,d1			;2	;d1=ix.gb
	swap	d1			;2	;d1=gb.ix
;-------
	move.l	d0,d3			;2	;\
	lsl.l	#3,d3			;2	; \
	eor.l	d1,d0			;2	;  \/ 28 steps of 31bit
	ror.l	#3,d0			;2	;  /\ Pseudorandom shifting
	roxl.l	#4,d0			;2	; /
	ror.l	#4,d0			;2	;/
;-------
	movem.l	(sp)+,d3/a1		;4	;pull d3/a1
	addq	#4,d1			;2	;step index
	movem.l	d0/d1,$039E(a6)		;6	;save gb.ga/gc.ix
	lsr.l	#8,d1			;2	;d1=00:gch.gcl:00
	lsr	#8,d1			;2	;d1=00:gch.00:gcl
	rts				;2	;exit
;-------------------------------------
;Byte count for nu_randstep		;80
;-------------------------------------
nu_randstep_set:
	move	#$7C31,d1		;4	;d1=?.$C90F
	bsr.s	crc16_add_long		;2	;d1=?.tc
	exg	d0,d2			;2	;d0=gss_adj.sys_cnt  d2=fa.fb
	bsr.s	crc16_add_word		;2	;d1=?.fc
	exg	d0,d2			;2	;d0=fa.fb  d2=gss_adj.sys_cnt
	move	d1,d3			;2	;d3=?.fc
;
	swap	d1			;2	;d1=fc.?
	move	d3,d1			;2	;d1=fc.fc
	and	#$0FF4,d1		;4	;d1=fc.ix
	bra.s	nu_randstep_store	;2
;-------------------------------------
;Byte count for nu_randstep_set		;24
;-------------------------------------
crc16_add_long:
	swap	d0		;2
	bsr.s	crc16_add_word	;2
crc16_add_swap_word:
	swap	d0		;2
crc16_add_word:
	ror.w	#8,d0		;2
	bsr.s	crc16_add_byte	;2
crc16_add_ror_byte:
	ror.w	#8,d0		;2
crc16_add_byte:
	move.l	d0,-(sp)	;2
	rol.w	#8,d1		;2
	eor.b	d0,d1		;2
	move.b	d1,d0		;2
	lsr.b	#4,d0		;2
	eor.b	d0,d1		;2
	move.b	d1,d0		;2
	lsl.w	#7,d0		;2
	eor.b	d1,d0		;2
	lsl.w	#5,d0		;2
	eor.w	d0,d1		;2
	move.l	(sp)+,d0	;2
	rts			;2
;-------------------------------------
;Byte count for crc16_add_*	;38
;-------------------------------------
max_hash_d1:
	move.l	d0,-(sp)	;2	;push d0
	move.l	d1,d0		;2	;d0 = X.Y.sys_ix
	moveq	#$B9,d1		;2
	bsr.s	crc16_add_long	;2	;d1 = crc of d0 bytes
	move	d1,d2		;2	;d2 = intermediate crc
	and	#$0FF4,d2	;4	;limit d2 as long index
	lea	RA_crc_ref(pc),a0	;4	;a0 -> RA_crc_ref
	move.l	(a0,d2),d0	;4	;d0 = indexed constant
	bsr.s	crc16_add_long	;2	;include constant in crc calc
	move.l	(sp)+,d0	;2	;pull d0
center_quad_d1:
	move	d1,d2		;2
	bpl.s	.sign_ok	;2
	neg	d1		;2
.sign_ok:
	muls	d2,d1		;2
	asl.l	#1,d1		;2
	bchg	#31,d1		;4
	swap	d1		;2
done_center:
	cmp	#5*5,d7		;4
	slo	d2		;2	;d2 = ((dist < 5) ? -1 : 0);
	add.b	d2,d6		;2	;d6 += ((dist < 5) ? -1 : 0);
	mulu	d1,d6		;2
	swap	d6		;2
	sub.b	d2,d6		;2	;d6 -= ((dist < 5) ? -1 : 0);
	rts			;2
;-------------------------------------
;Byte count for max_hash_d1	;58
;-------------------------------------
fix_primary_d1:
	swap	d2		;2	;\
	rol.b	d2,d1		;2	; > rotate d1 1 or 5 bits dist dependent
	swap	d2		;2	;/
	andi.b	#$1E,d1		;4	;limit to relevant bits
	cmpi.b	#$10,d1		;4	;Primary larger than Red Giant ?
	bls.s	.exit		;2	;if not, just exit
	lsr	#1,d1		;2	;d1 = primary_index/2
	addq	#1,d1		;2	;d1 += 1
	mulu	$039E(a6),d1	;4	;d1 *= last random position value
	swap	d1		;2	;d1 >>= 16
	add	d1,d1		;2	;d1 = random primary $00..$1A
	
.exit:
	rts			;2	;return to caller
;-------------------------------------
;Byte count for fix_primary_d1	;28
;-------------------------------------
gst_reuse_last:
	movea.l	gst_last_ad(pc),a0	;4
	bra.w	gen_sys_type_results	;4
;-------
gst_last_id:	dc.l	0		;4
gst_last_ad:	dc.l	0		;4
;-------------------------------------
;Byte count for gst_reuse_last	;16
;-------------------------------------
use_new_ads:
	bsr.s	new_ad_sub_1		;2
;here d0=ad_resist d1=cost d2=ad_ms_code  a2=drive_ms_code d3=2*drive_token
	move.l	d1,d2			;2	;d2 = drive cost
	cmp.l	$02DE(a6),d2		;4	;cost <= money available ?
	bhi.s	.fail_cost		;2	;if not, refuse due to cost
	move.l	$02A2(a6),a0		;4	;a0 = shipobj_p
	clr	d1			;2	;d1 = 0
	move.b	$A6(a0),d1		;4	;d1 = old drive token
	add	d1,d1			;2	;d1 = 2*token of old drive
	cmp	d1,d3			;2	;new_drive != old_drive ?
	beq.s	.fail_dupe		;2	;if not, go refuse a duplicate
	lea	drive_mass_t,a1		;6	;a1 -> mass table
	move	(a1,d3),d4		;4	;d4 = mass of new drive
	sub	(a1,d1),d4		;4	;d4 = new-old mass difference
	move	$02E2(a6),d5		;4	;d4 = baysize
	sub	d4,d5			;2	;d4 = baysize+old-new
	cmp	$02E6(a6),d5		;4	;d4 = out of room (w cargo) ?
	bge.s	.finalize		;2	;if not, go finalize change
.fail_mass:
	move	#$98E7,d0		;4	;d0 = ms_No_room_for_it
	bra.s	.final_prompt		;2	;go send response
;-------------------------------------
.fail_cost:
	move	#$99CD,d0		;4	;d0 = ms_Can't_afford_it
	bra.s	.final_prompt		;2	;go send response
;-------------------------------------
.fail_dupe:
	move	#$98E0,d0		;4	;d0 = ms_xxx_already_fitted
.final_prompt:
	move	a2,d1			;2	;d1 = ms_code of wanted drive
	jmp	build_menu_prompt	;6	;build response prompt
;-------------------------------------
.finalize:
	lsr.b	#1,d3			;2	;d3 = new drive token
	move.b	d3,$A6(a0)		;4	;install drive
	sub	d4,$02E2(a6)		;4	;adjust baysize
	sub.l	d2,$02DE(a6)		;4	;adjust money
	move	#$98E9,d0		;4	;d0 = ms_fitting_xxx
	bra.s	.final_prompt		;2	;go send response
;-------------------------------------
;Byte count for use_new_ads	;90
;-------------------------------------
new_ad_sub_1:
	move.w	#$981B,d2		;4	;d2 = ad ms_981B_ALIEN_DRIVES
	move.w	#dd_UK_ms_code,a2	;4	;a2 = ad ware = ms_ALIEN
	moveq	#dd_UK_index<<1,d3	;2	;d3 = 2*index of ALIEN drive
	moveq	#64,d1			;2	;d1 = ALIEN difficulty
	tst	d0			;2	;GALACTIC ad ?
	beq.s	.have_dd_info		;2	;if not go keep ALIEN values
	moveq	#$8,d1			;2	;d1 = GALACTIC difficulty
	move.w	#$982A,d2		;4	;d2 = ad ms_982A_GALACTIC_DRIVES
	move.w	#dd_GX_ms_code,a2	;4	;a2 = ad ware = ms_Galactic_drive
	moveq	#dd_GX_index<<1,d3	;2	;d3 = 2*index of Galactic drive
.have_dd_info:	;here d1=diff d2=ad_ms_code d3=drive_token*2 a2=drive_ms_code 
	move	d1,d0			;2	;d0 = difficulty
	exg	a2,d1			;2	;d1 = drive_ms_code a2 = garbage
	lea	drive_cost_t,a2		;6	;a2 -> cost table
	move	(a2,d3),a2		;4	;a2 = cost/9000
	exg	a2,d1			;2	;a2 = drive_ms_code d1 = cost/9000
	mulu	#9000,d1		;4	;d1 = Cost
	rts				;2	;return to caller
;-------
;at exit d0=difficulty d1=cost d2=ad_ms_code d3=2*drive_token a2=drive_ms_code
;-------------------------------------
;Byte count for use_new_ads	;50
;-------------------------------------
prep_new_ads:
	bsr.s	new_ad_sub_1		;2
;here d0=ad_resist d1=cost d2=ad_ms_code  a2=drive_ms_code d3=2*drive_token
	jsr	$001E(a5)		;4	;randmult_d0
	tst	d0			;2	;random code == 0 ?
	beq.s	.exit_ok		;2	;if zero, go accept ad
	clr	d0			;2	;else flag refusal
	rts				;2	;return to caller
;-------
.exit_ok:	;here d1=cost d2=ad_ms_code  a2=drive_ms_code d3=2*drive_token
	move.l	d1,d3			;2	;d3 = d1 = cost
	divu	#10000,d3		;4	;d3 = kcost
	jmp 	$0018(a5)		;4	;randmash_d0d1  d1 = random code for system
;-------
;at exit  d0=random d1=random d2=ad_ms_code d3=kcost a2=drive_ms_code
;-------------------------------------
;Byte count for prep_new_ads	;024
;-------------------------------------
;Estimated freed bytes  = 503
;Estimated reused bytes = 460
;Remaining freed bytes  =  43
;----------------------------------------------------------------------------
	ELSE
;----------------------------------------------------------------------------
s3_blank_0:
	dc.w	$2000
s3_blank_1:
	dc.w	$2000
s3_blank_2:
	dc.w	$2000
s3_blank_3:
	dc.w	$2000
s3_blank_4:
	dc.w	$2000
s3_blank_5:
	dc.w	$2000
s3_blank_6:
	dc.w	$2000
s3_blank_7:
	dc.w	$2000
s3_Sirius:
	dc.b	'Famous as the first true corporate system. The Sirius corp'
	dc.b	'oration has been using the vast amounts of cheap energy av'
	dc.b	'ailable on Lucifer from coils wrapped around the planet fo'
	dc.b	'r synthesis of custom elements (particularly military grad'
	dc.b	'e fuel) since 2350 and the first interstellar war.',$0D
	dc.b	'This system is not subject to Federal law.',NUL
X49AA0:	dc.b	' ',NUL
X49AA2:	dc.b	'Landfall has one of the most interesting skies of all the '
	dc.b	'known habitable planets, with no less than six stars brigh'
	dc.b	't enough to cast shadows at some time.',$0D
	dc.b	'It also has the best preserved indigenous wildlife which c'
	dc.b	'ohabits succesfully, often to the exclusion of introduced '
	dc.b	'life.',NUL
X49BB7:	dc.b	' ',NUL
X49BB9:	dc.b	'Very high humidity and native life make this an interestin'
	dc.b	'g place to visit. Many exotic food stuffs are grown here. '
	dc.b	'The scenery is strikingly beautiful, though the wildlife c'
	dc.b	'an be a little dangerous.',NUL
X49C81:	dc.b	'Only just sustaining life, the indigenous forms on this ar'
	dc.b	'id planet are very hardy.',NUL
X49CD5:	dc.b	'This system was given to the Guardians of the Free Spirit '
	dc.b	'religious sect by the Federation in 2480. They believe in '
	dc.b	'maximum hardship and live underground on several of the in'
	dc.b	'ner planets of the system. It is forbidden by Federal Law '
	dc.b	'to enter the system without the permission of the Guardian'
	dc.b	's.',NUL
X49DFA:	dc.b	'Famous as the first flare star system to be settled, in 30'
	dc.b	'17. All surface habitations have flare shelters beneath th'
	dc.b	'em, which should be entered on hearing the flare warnings.'
	dc.b	' The first planet, often known as Lenin, was terraformed b'
	dc.b	'y a group of rich idealists on condition it was run to str'
	dc.b	'ict communist principles. They endowed an enormous amount '
	dc.b	'of wealth to the system, which is now very rich.',NUL
X49F87:	dc.b	'Prisoners are housed in underground cell complexes, and se'
	dc.b	't to do manual mining work. Visitors are allowed, but an e'
	dc.b	'ntry permit must first be obtained.',$0D
	dc.b	' There is reputed to be a seedier side to the colony where'
	dc.b	'by lonely visitors may enter without a permit while the gu'
	dc.b	'ards turn a blind eye for a fee, but this is always denied'
	dc.b	'.',NUL
X4A0CF:	dc.b	' ',NUL
X4A0D1:	dc.b	'Eden was the first planet on which liquid water was detect'
	dc.b	'ed, by spectroscopic methods in 2038, and so was a major d'
	dc.b	'riving force for the exploration of space. However, Eden t'
	dc.b	'urned out to be extremely inhospitable with the added dang'
	dc.b	'er of hard radiation from Proxima. There is now a small re'
	dc.b	'search station on Eden, but little else in the rest of the'
	dc.b	' system.',NUL
X4A236:	dc.b	'Vast areas are used for growing custom grain crops in enor'
	dc.b	'mous quantities which are then exported to the surrounding'
	dc.b	' worlds.No manufacturing industry is permitted to avoid an'
	dc.b	'y polluting emmisions.',NUL
X4A2FB:	dc.b	'The inner planet was terraformed by the Cisco corporation '
	dc.b	'into a beautiful theme park in 2958. The system does not c'
	dc.b	'ome under Federal law, and a wide range of exotic delights'
	dc.b	' are available, including historic adventures staged using'
	dc.b	' actors.',NUL
X4A3EC:	dc.b	'The planet Scott was terraformed in 2329 as an agricultura'
	dc.b	'l colony, but the temperature could not be sustained and w'
	dc.b	'as abandoned in 2408 after a disease epidemic. The equator'
	dc.b	'ial belt was resettled in 2641 by settlers who liked the h'
	dc.b	'arsh environment, now famous for fishing and tourism. It i'
	dc.b	's particularly popular with the industrial workers from ne'
	dc.b	'arby systems who otherwise live their whole lives indoors.'
	dc.b	NUL
X4A583:	dc.b	'Two planets here have now been terraformed, and both are l'
	dc.b	'argely given over to agricultural production and to e'
	dc.b	'thically questionable cattle ranching. There is little man'
	dc.b	'ufacturing industry other than the production of the famou'
	dc.b	's bourbon.',NUL
X4A671:	dc.b	' ',NUL
X4A673:	dc.b	'First colony outside the Sol system, and first alien life '
	dc.b	'was discovered here. Unfortunately the last remnants are n'
	dc.b	'ow in zoo enclosures for tourists, introduced life and cro'
	dc.b	'ps cover most of the surface and seas.',NUL
X4A748:	dc.b	'Early life had just started to emerge on Arcturus 3 when t'
	dc.b	'he human settlers arrived in 2304. This has now been repla'
	dc.b	'ced by an Earth ecosystem, adapted to live under the red l'
	dc.b	'ight. Locals are generally confident their star will remai'
	dc.b	'n a red giant forever.',NUL
X4A847:	dc.b	'Historic system famous as both the birthplace of Humanity '
	dc.b	'and as the political capital of the Federation. A very exp'
	dc.b	'ensive and prestigious system to live in, and a popular to'
	dc.b	'urist venue. Most rich humans will visit Earth once in the'
	dc.b	'ir lives. All the major corporations have their headquarte'
	dc.b	'rs on Mars, terraformed in 2286, which is the main centre '
	dc.b	'for administration.',NUL
X4A9B7:	dc.b	'Imperial capital on Achenar 6d, known as Capitol by the lo'
	dc.b	'cals. 6c is still known as Conversion though it was terraf'
	dc.b	'ormed in 2696. 6b was terraformed in 2850 to accomodate th'
	dc.b	'e population explosion which followed. Anyone without the '
	dc.b	'quirky accent o'
X4AAAE:	dc.b	'f Imperial citizens is shunned, especially if they are fro'
	dc.b	'm a Federation world.',NUL
X4AAFE:	dc.b	'The system relies heavily on slavery to maintain the luxur'
	dc.b	'ious life style of the very wealthy ',$83,'lite. Most live'
	dc.b	' on the great plantations, common throughout the Imperial '
	dc.b	'Worlds. The cities house the workers for the service indus'
	dc.b	'tries and the more exotic entertainments.',NUL
X4AC0A:	dc.b	'The deep and highly mechanised Imperial mines are renowned'
	dc.b	' for their efficiency at ore extraction. Slavery is also i'
	dc.b	'mportant for the routine supervision of the machinery in t'
	dc.b	'he unpleasant mining environment.',NUL
X4ACDA:	dc.b	'Many Imperial worlds were terraformed during the last majo'
	dc.b	'r Imperial expansion 2950-3150, including this, and there '
	dc.b	'are numerous fine examples of architecture of the period.',NUL
X4AD88:	dc.b	' ',NUL
X4AD8A:	dc.b	' ',NUL
X4AD8C:	dc.b	'There is no real law here, though in the cities organised '
	dc.b	'crime does some form of policing. It is highly recommended'
	dc.b	' to avoid this system if at all possible.',NUL
X4AE2A:	dc.b	' ',NUL
X4AE2C:	dc.b	'Well known Imperial Naval Base. Most Imperial naval admini'
	dc.b	'stration is done on Topaz, and there are several outdoor t'
	dc.b	'raining camps across the surface.',NUL
X4AEC2:	dc.b	'The main Federal Naval Base was moved here from Anlave in '
	dc.b	'2983 following terraforming in the 2970s, and is an excell'
	dc.b	'ent training ground for planetary assault troops.',NUL
X4AF68:	dc.b	'System most famous for the giant Verrix. Stevenson is the '
	dc.b	'home world of the hardy beast of burden now found througho'
	dc.b	'ut human space, especially on the emerging worlds of the o'
	dc.b	'uter rim.',NUL
;----------------------------------------------------------------------------
	ENDC
;----------------------------------------------------------------------------
s3_used_end:
s3_used_size	=	(s3_used_end-s3_data_beg)
	sz_pad	sys_hist,s3_data_size,s3_used_size
;----------------------------------------------------------------------------
;Next label is L4B020
;----------------------------------------------------------------------------
