f2r 126-277-100 PHD TEST PROGRAM MARCUS
|START
|SET FRAME COUNTER
64|11q,tp17c,10k
|A1 SET A5
tv13c,18p	tv13c,17r
|A2 SET B1
tu26c,16q	tu18c,17q
|A3 CHECK FOR CHANGES IN DISPERSION
tp11u,a	ej11c,24p	mj0,12r	24p,tp12u,a	ej12c,15q
|A4 COMPUTE FACTOR TO MODIFY TABLE
12r,mp11u,12u	laa,57	tpa,10t	mp11c,12c	dv10t,q	tp11u,11c	tp12u,12c
|A5 REVISE TABLE
18p,mpq,21c	laa,57	17r,tpa,21c	ra18p,14c	ra17r,14c	tj23c,18p
|A6 SET C2
15q,tv18c,18q
|A7 SET B4
tv18c,21p
|B1 COMPUTE X
16q,la11x,15+a	dv11c,10t	17q,la12x,15+a	dv12c,q	mpq,q	ma10t,q	laa,57
|B2 IS X LESS THAN 12
tj20c,20p
|C2 SET PHDEQUAL TO ZERO
18q,tp16c,11y	mj0,23p
|B3 FIND ADDRESS OF TABLE VALUE
20p,dv25c,q	tna,a	at24c,10t	raq,13c
|B4 COMPUTE PHD AND STORE
tvq,22p	22p,mp10t,21c	laa,56	21p,tpa,11y
|B5 IS FRAME LAST IN RUN
23p,ij10k,10s
|B6 SET FOR NEXT FRAME
ra16q,15c	ra17q,15c	ra21p,14c	ra18q,14c
|B7 IS LAST CELL IN ES FILLED
tj19c,16q	10s,fs
|CONSTANTS
11c,+32768	12c,+32768	13c,21c	14c,+1	15c,+32768	16c,0	17c,+100	18c,sf12x,11y
19c,tp16c,1024	20c,+393216	23c,tpa,96+21c	24c,+65536	25c,+4096	26c,sf11x,q
10k,0	10t,0	11u,+63242	12u,+63898
|FUNCTION TABLE
21c,5215	4899	4602	4324	4062	3816	3584	3367	3163	2972	2791	2622
2463	2314	2174	2042	1919	1802	1693	1591	1494	1404	1319	1239
1164	1093	1027	965	906	851	800	751	706	663	585	550
516	37+21c,485	456	428	402	378	355	333	313	294	276
260	244	229	215	202	190	178	168	157	148	139	131
123	115	108	102	96	90	84	79	74	70	66	62
58	54	51	48	75+21c,45	42	40	37	35	33	31
29	27	26	24	23	21	20	19	18	17	16	15
14	95+21c,13
|ANSWERS
954|11y,0
|DEFLECTION ERRORS
16384|11x,383386	347341	275251	321126	222822	114688	137626	137626	170394	216269	147456	-13107
0	114688	-62259	-45875	-68813	16384	-212992	-245760	-75366	-199885	-206438	13107	78643
-108134	-85197	32768	-160563	-229376	-281805	-91750	-144179	-229376	-193331	-206438	-212992	-308019
-337510	-235930	-308019	-308019	-154010	-235930	-131072	-298189	-154010	-147456	-52429	-52429	-144179
-193331	-108134	-85197	-190054	-75366	62259	114688	78643	-91750	-160563	-52429	176947	160563
170394	124518	131072	98304	52429	39322	62259	22938	29491	68813	330957	160563	75366
85197	98304	137626	176947	308019	347341	39322	-6554	16384	91750	229376	108134	68813
-29491	-252314	-190054	-29491	-199885	-98304	-68813	-85197	-6554	-167117
|ELEVATION ERRORS
16484|12x,62259	85197	154010	58982	85197	298189	58982	75366	22938	-75366	-39322	22938
-124518	-144179	-144179	-298189	-144179	-147456	-222822	-176947	-239206	-255590	-193331	-206438	-291635
-245760	-229376	-347341	-262144	-245760	-222822	-383386	-337510	-344064	-330957	-321126	-262144	-298189
-275251	-330957	-167117	-167117	-101581	-154010	-160563	-58982	-121242	-52429	-114688	0	13107
-22938	6554	45875	52429	-22938	-78643	-131072	-85197	45875	137626	121242	-39322	-121242
-78643	16384	78643	124518	101581	101581	62259	-52429	-16384	39322	6554	101581	52429
16384	22938	124518	68813	147456	-170394	-75366	-121242	-98304	-16384	-85197	-78643	-144179
-62259	-29491	-45875	-101581	0	-154010	-144179	-85197	-98304	-52429
base 8
start at 11q
0