<div id='wikitext'>
<pre><b> File: STARRN.RA of Disk: Disks/Working/Build-11-03-07</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
	EXTERN	AMOD
	SECT	RAN
	JA	#ST
#XR,	ORG	.+10
	TEXT	+RAN  +
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
CONST,	ORG	.+3
DIVIS,	ORG	.+3
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
#VAL,	ORG	.+6
#ARGS,	ORG	.+3
ANEXTN,	ORG	.+0003
CON,	ORG	.+0003
DIV,	ORG	.+0003
IFRST,	ORG	.+0003
SEED,	ORG	.+0003
TEMP,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0000
	0000
	0000
	0001
	2000
	0000
	0002
	3000
	0000
	0003
	3000
	0000
	#LBL=.
	ORG	#LBL
#RTN,	BASE	#BASE
	FLDA	#VAL
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FSTA	#ARGS
	FLDA%	#BASE,1+
	FSTA	CONST
	FLDA%	#BASE,1+
	FSTA	DIVIS
	STARTF
	LDX	0002,0
	LDX	0003,0
	#G0001=.
	ORG	SEED+0000
	0001;2360;1450
	ORG	IFRST+0000
	0000;0000;0000
	ORG	#G0001
	LDX	0004,0
	FLDA	IFRST
	FSUB	#LIT+0000
	JNE	#10
	LDX	0005,0
	FLDA	SEED
	FSTA	ANEXTN
	LDX	0006,0
	FLDA	#LIT+0003
	FSTA	IFRST
	LDX	0007,0

#10,	LDX	0010,0
	FLDA%	CONST
	FADD	SEED
	FSTA	CON
	LDX	0011,0
	FLDA%	DIVIS
	FADD	SEED
	FSTA	DIV
	LDX	0012,0
	FLDA	CON
	FMUL	ANEXTN
	FSTA	TEMP
	LDX	0013,0
	JSR	AMOD
	JA	.+0006
	JA	TEMP
	JA	DIV
	FSTA	ANEXTN
	LDX	0014,0
	FLDA	ANEXTN
	FDIV	DIV
	FSTA	#VAL
	LDX	0015,0
	EXTERN	#NE
	JA	#RTN
	LDX	0016,0
	EXTERN	#NE
	JA	#RTN</pre>
<hr/>
</div>