f2r 126-278-100 PH TEST PROGRAM HADDENHORST
|START
base 10
|B1 SET MODIFIABLES TO INITIAL CONDITION
17q,tp15c,10k	tv28c,11q	tu29c,12q	tv19c,13q	tv30c,18q	tv26c,15q	tu29c,12r
tu23c,12p	tv32c,13r	tv27c,14r	tv30c,16r
|B2 CLEAR STORAGE
17r,tp31c,14t
|B3 RADIAL BIAS
11q,mp17c,10x	12q,dv11x,10t
|B4 TEST PH=0
mpq,q	mpa,20c	laa,41	tj22c,19q	18q,tp31c,14x	mj0,18r
|B5 COMPUTE N
19q,tp10t,a	dv18c,11t	rsq,33c	lqq,15	tpq,12k
|B6 EXPONENT i
tp10t,a	dv11t,15t	13q,mp15t,0	tpa,12t	mpa,q	mpa,20c	laa,41
|B7 EXPONENTIAL
11p,dv14c,q	tna,a	at10c,13t	raq,13c	tvq,11r	11r,mp13t,0	15q,mj0,14q	14q,tpa,11t
|B8 R2/252
la21c,15+a	12r,dv11x,10t	mpq,q	mpa,20c	laa,41	tpa,17t
|C1 BESSEL ARGUMENT i
mp10t,12t	15r,mpa,20c	laa,41	tpa,13t	mpa,q	laa,57	tpa,18t
|C3 BESSEL SERIES i
tp8+11c,12t	tp34c,11k	12p,la7+11c,15+a	ma12t,18t	laa,36	tpa,12t	rs12p,10c	16q,ij11k,12p
mp12t,13t
|C5 FORM INTEGRAL
mpa,11t	13r,laa,24	at14t,14t
|C6 SET FOR NEXT i
tu23c,12p	ra13q,19c
|C7 (n-1) TERMS SUMMED
13p,ij12k,13q
|C8 SET FOR TERM n
rs13r,19c	14r,rj14r,13q
|D1 q/exp.
mp10t,15t	mpa,14t	mpa,20c	laa,27	raa,10c	tpa,12t
|D2 MODIFY EXP PROGRAM
tp17t,a	tv25c,15q	mj0,11p
|D3 HIT PROBABILITY
15p,mpa,12t	laa,42	tna,a	raa,10c	16r,tpa,14x
|D4 RESET FOR NEXT FRAME
18r,ra11q,19c	ra12q,10c	tv19c,13q	tv26c,15q	ra12r,10c	tv32c,13r	tv27c,14r
ra16r,19c	ra18q,19c
|d5 LAST FRAME RUN
ij10k,17r
|D6 STOP AND PRINT
19r,fs
|CONSTANTS
10c,32768	11c,68719476735	34359738368	5726620771	477218283	23860914	795366	18937	338
5	12c,262144	231341	204158	180169	158998	140315	123828	109278	96437	85106	75106
66280	58492	51619	45554	40201	35477	31309	27630	24383	21518	18990	16758	14789
13051	11518	10164	8970	7916	6986	6165	5441	4801	4237	3739	3300	2912
2570	2268	2001	1766	1559	1376	1214	1071	945	834	736	650	573
506	447	394	348	307	271	239	211	186	164	145	128	113
100	88	78	68	60	53	47	42	37	32	29	25	22
20	17	15	13	12	11	9	8	7	6	6	5	4
4	3	3	3	2	2	2	2	1	1	99+12c,1	13c,12c	14c,4096
15c,49	17c,32768000	18c,8192	19c,1	20c,5243	21c,81920000	22c,409600	23c,11075584	24c,19c
25c,15p	26c,14q	27c,13q	28c,10x	29c,tp11x,11x	30c,14x	31c,0	32c,24	33c,2	34c,7
|COUNTERS
10k,	11k,	12k,
|TEMPORARY STORAGE
10t,	11t,	12t,	13t,	14t,	15t,	17t,	18t,
|DATA STORAGE
10x,413204	364708	622592	393216	227082	381747	246743	214958	698941	2113864	1856963	1181942
869007	634388	532808	412221	342098	83231	304087	789709	458097	32113	32113	101253	1114767
940442	666829	272302	261489	469893	585236	704840	604242	940114	1418854	1181942	575078	176620
41615	312607	325714	509542	378798	245432	276234	309658	221839	267387	362414	49+10x,212009
11x,117768192	117276672	116785152	116293632	115802112	115310592	114819072
114425856	113836032	113344512	112951296	112459776	111968256	111476736
110985216	110493696	110002176	109510656	109019136	108625920	108036096
107544576	107151360	106659840	106168320	105676800	105185280	104693760
104202240	103710720	103219200	102727680	102236160	101744640	101351424
100859904	100368384	99876864	99287040	98893824	98402304	98205696	97419264	97026048	96534528
96141312	95649792	95158272	94666752	49+11x,94175232	14x,0
base 8
start at 17q
