File AAVG1.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

?>2CDPPEH
>Z,;BX[20AHH >H/H?H-\*HH: LX(I>(X"0:HTD\ILJL*.-$2D.$:L?4?L7 ?D224IL70?T/MWX?AXL2ALZTJX0HHH <L*L&:H0(!IP*LHDHZ8L1(XD 5LJT>D^411]HU >* .DN,1;(H?XYDJ$?D	05L*T H[00;$EH	,0LY	H* *D0D-H&*L*TDYT*0,^2A:A
?2I	>EO=<(/<C;	>A:A/<O=	>C>A/<2AK:XHK9XILH> *[PI*[2I:AHHC=9H[8AHHC8> K7KK6[[$JS[%	5 JS[%K4[$K7[K4XPK=XQLP>(+NHPK3XPHQK3XQHQ?H*=K7K[HQ*;K2K[	5 K%8!JS8![]O=C;	>D>A/</12B&N/<KC09J8J8J8H<X8A/ 
R HEZRC AA??=BXORQ>??&2C.B>O?C>9J8J8J8H<X9AO=<X+*
=.C;	<G<B;2AO;[VO:[WO9[X2I	<EO8<(*Q	<A:A*QK7[
O6[!\K5[Z*3\2AOYSY2I>(*<SZ*3*2S[*9K4[
K3[ K3[Y\OY>(+NK;KY[YSZ+E+D2AKV
;KW
:KX
9/2BX?=2B&(*QK1[ZS!K K0[ /\< *Q*OD<T!ZBH>X>PB>OGFE?PT
QZ
2AO?>(*[R *SO>2I^^R^2AO=2I^^R^K<Z J
2I^^R^^^R2C.J
2C.Z??2IK;XHK:XIK9XJ2ILI2A\HPJ*(2C*04.
9O>XKZ,HKR,8PK=<P*89FK<XKJ,9F8DJ0.2HZ"2[VKV[^HKXJHJXLHY"2[YHKXMI[Z
LJZ2LK[%J2\MK%\LR
+W2A/EX/	;LI9!HP> +7LI9!HQ> +7LI9!HR>(<B2A/%<=U?3??=I<2;32AJ=XHJ?XK
2ILH<(*![FKFKC>(*Q"-*FKDXL2A8A\K2ILH2A\KPL*V\K: HKXK*FJ?XHKAZ;KB[F2ALH>(/?"-*	":LHXIJ>XJ":LHE\IPJ*3.-2I.:Y??=7?82A2IM7?</E	>HZX/%!;$HNXNHNXOHZ9!H[>X+
HW\O: HZ\OHZ8AXW*KHZ8A\OHX\O: K9[9; HZXX<P+1*NHZ	=>X	<;LNXWLNXXS9*N.>6J\7E7%6
62A0ZJ5XHLH<(*L0&:0!*I*DH1Z8 1X:5XJ>5^1]1]U>(*.HN1[;J?Y&J?Y	5\* 5[0,;EI	0+Y	0**(0-Q&* *T0Y*U0^KA>(/B/65CTCRCICGCGCECRB8=/==>**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**UU**EX68HX7,5
:H^,BJJJJ>PWLH!AAVG1BNUDTA1????8AOFDSKO?.A2IPH2KHXXYHY<(H"XXI*,5E&K7>G::4<4)9QB&5	"53.H.-,&,67O7G4>5%DCB??G?)C??<"$	%?] ?Y3!3B3201L0^1A24L44X4F$?<=AGIUF1LAKLB0 B>"G8???0/G <%E DHGD,=?=DI?JT8!%[I;0+:JUI90,0**J0-:JVY8JWY9%\.I;>(+P%:H!>(H	H(HO?+?H!>(*12IH\OH
\OHV\OHW\OHX<H%9\O2A: X
H <(+VI8<(-7I6<(*WI5<(+MI4> -3X^ ]2;XE1HR]1*3P!-3*NHUX[P
-3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,JAJAHP+$I.X JA2I/ %-2A"G/?2A"G2K/>;K=
<K;[K:Z?K9Z>2A2J	8H:A2A2J	7BEA*8;JZ
6:A2A2J	7BEE*8;J%
N?Z%R?SR>* 2A2J	7I;
<.G2A2J	7GA<BAAVG2SVAAVG3SVAAVG4SVAAVG5SVEIEM8F8FLQ\QPY*6HU> P]-3PZI*5B2[+HU>(+6(-[+J&2J%0BG?*+;K,9I"<P:9F8FA5=;B??=EQE?&PARVF;0(5X%]NUXPJUZKJKJ4ZK2A2L]RMRJU8!JKPP>(*H2A: HPXPHP%DJ5XSJ6XQ8AHS%DHSHQIJ%D$>F7*&$>GL*&%!%ZXZ8A8XR.3O7HBW0$LAB8/E IS READY  %HIT 
ETURN TO PROCEED		DIGITAL I/O? 	-	 %<Y FOR YES, N FOR NO>STANDARD RESOLUTION:%	----	 DATA POINTSLENGTH: 	-----	 	-	SECDELAY: 	-----	 	-	SECHIGH RESOLUTION EPOCH%	----	 DATA POINTSHI LENGTH: 	-----	 	-	SECHI DELAY: 	-----	 	-	SEC%SYNC ON INPUT: S	-	% BEGIN
-AT RATE-ENDS%"XXXXXX""X""XXXXXX""X""XXXXXX""X"%"XXXXXX""X""XXXXXX""X""XXXXXX""X"%%	-	: CHANGE (H,L,&)SORT AT 	-----	 	-	SECAVG ["XX"%%ANALOG INPUT 	--	RESOLUTION: 	-	 (H,L)SORT CODE: 	---	CONFIDENCE LIMITS?: 	-	%<Y: YES>COMPUTE TREND?: 	-	%<Y: YES>LEAST 
WEEP INTERVAL:%	-----	 	-	S (>"XXXXXX" "X"S)AVERAGE 	----	 SWEEPS$NA8INPUTS$IP4"XX":"XX",X$MA8AVERAGES"XX"PUNCH CONTROL TAPE? 	-	%<Y: YES>TITLE:%	---------------------	%%? SWEEP ENDS EARLY		? INSUFFICIENT MEMORY		? BAD SAMPLING RATIO		? NO COMMON INTERVAL
	? TOO MANY INPUTS%  FOR SWEEP RATE		%%   SWEEP SUMMARY%    AVERAGES%CHAN RATE TYPE SORT% "XX"    X     "XX"  "XXX"%(VAP,"X","XXXX"-"XXXX")% SWEEPS AT S%H?4%%%BJ=3IYH)KS?/RH)8A/QPTPKAI9K"Y9+Y%\Q&+XI+8!I;> %\/!ZB> 0 [,S&S"+"M^L2P?&LL/K%7<7>GW8PG$>H:+7$?+7<
/6XUHU%ZAJ*I.$*I*I.$9XXUJ%X$>G .$%A*K8!X).SOJ%G%"+	%E2?%"/:H)HQ>X*&$>L5*K*KBVO7(/$>G4*K%B*&%F/:%"+*J%G%E+*I8? *&$>H*&%B*6%"+-%F+*%"+0%E+	I8?(+L$>L**&*6R,RDX1$>HK*6%A+M8!<(/JX$H$8A%G%"+6%E2?%"/:H$H)HQ>P+($>L5*K+L$>H +L%B+(%F/:%"N/J%G%EN/I8?+(%+*%FN/%$%I< /
$>MA.&.(X1$>H-.)%B*E%FN/%"N2H18!%G%HN/%"+*%+-%FN/%"+0H18!%G%H+	%E+0%$%"+3*=PKP6QLQ(TTT)%+*%"N/%+0%"N2&+<%$%"+3%+	%"+6H1%G%"OD%+6%EN2%"N5%E+3I8? +0%I%G%"N8%+3%$%E2?%"V%+3%EN2I8?H+,%I%G%$%"N;%+	%"N>%<%"OA.*$>MM.	.&%FOD%I%G%"OA%N5%E2?%"V%N5%$%E+0I8?H.]%FOD%$
I%G%$%"N>%+6%"N;%<%"N8HW?H*<$>L*.[.\P6QLS,J^Z)"-?HIKJ/Z	%.)"-8!*"%"/:N)Z3%%"/=%$%E/:I8R).-%]IE%V%A8%%Y7%"V%$%E2?%EN;%$%HN/%C%N/%$%C%2?%$%EV%EN8%HN/%C%N>%HOD%EV%$%E2?%$%HN/%C%OD%HN/%C%OA%HOD%E2?%$%EV%HN/%C%2?$>IE+=%!%ZN)/+/*HR>(*T$>I</)%B*E%FN/%E2?I8?*E%"+
%[%N5	-+*%$	.+3%"+*%N2	.+0%"N5%E+*%"+*Y=H1> K	K(%G%"/:%<%"+-%O%"/=HQY2X%X*HS8AY6]6K/Y0I2Y1%/:%"+3%]JHI=8A%D$>JH/,$?+PY8H$Y3H%Y4H1>(+5$>JW+P%!%ZN)+7+0+]FYA=U=PKQL[CT)T^D:H*Y4IXI8Y8H)Y3IKY5K&%[I3Y-I8I4IXY/HS8AY6M6<(*^CZY&I/CZ8!I&> *SY5Y-M6Y/INI6*C$>L5.\.]Y?
V+WPI5>(*0H"%G%E+3%"/:%EN/I8?(*0$>MY.\.]I5IN8 I-Y-9I-I1<P*VY2Y.HR>(+F$>J".]$?*?APY.8AY,$>J+.]%!%ZXZ+Q+[+[;VY,$>J<+F%!%ZXZQ,?I,%ZAKIJIKILY	I	8!Y&: Y;I-Y<I3Y98 Y8%\Q&+-%/=%\I;Y+I88 I;Y&: Y8I	IK8!Y9%\.AOTI;?H.&%A:%"/=I/]6I,9J8J8HI.Q6]6I	Q6]6I3Q6]6IJI6Y6]6I5>
*(I/?*	P**(WPWDXVP%I3%G%"/:%O3I,%ZAL*5*7%E;>%EOG%H/:%E+-%"+-Q=I5INI0=.%:I=>(.$I6X.H.H%8AX2H2H*XTH%H*8A9DHTX	%+6%IIMX$H%8!%G%"/:H$%G%H/:%IX(%/:%HN;%IH	IM8!X/%+	%IIMX)H*8!%G%"/:H)%G%H/:%IX-H	H(X,%/:%HN>%IH,IM8!X3H(>(*R%N8%IIMX0H->(*Z%OA%IIMX4%V%WHS8AY6M6<(+
B7=H8A=(H%B8H.Y&M68J8J8JB8]&INI6*!?4 

A=Y(	W+T%/:%%J6Y7%"/:I;Y0I(%G%H/:%$IL%I9JI0\II0Y;.:R:.:V+!KJ9%G%EN/%"/:%+-%F/:%E+*%HN/%EN/%"+-%$%]KK%C$>KK/V%B+.%"/:%E+-I8?H+.: H2Y&;XM&]&M&\T%/:%FN/%"/=%N5%E2?I8?H*Q%E/=%]%N/%
$>K%*W%A*W8!XV+>Y(I(1.
: I(9H9H8A%G%"/:I(%ZAL8A<H;VY1;Z%G%F/:%IY2I1%ZALK=K:Y3I18 Y&K;9XQ&+CY4H!J.
Y5I3Y6IQY=/J8!%G%"/:I2%G%F/:IN%IC<I1\HI58FC9I6\HI6I4C8Y6Q=+-I5I2JQ0/QSQ/Q<(/18!Y0S1/1??P>?0HHSXHI=	IHHIKXHLHPH	H*BHTXHH%H*	IH%	J*TH$	H*Q\HH*	J*[H)	H*X\HHTXHH	XILT\.H$	C*"H)	C*%Y3HT	E$>K08	G*2+48: H.XJK*:K	F*5PJK*)KA	F*;HL?:\:"F%^%&"-
Q^

1LH<(/KY9I9"Y4Y8IJ8A%[%"/:LHY9IJ%[I9Y5KB%[I9CB0+Y;SK/KY8I48!%[I5I80,:0*+00-/	\.%/=%YH	XIHSXHLH>(/DPHPHLHPH&+.QY3HS&K$>K>%^"-*R+:*R!K!=LH>(*GPHPHLHY	PH&P%B%]LE&[%]LE%
&,*!*RMP\:(0Y.-0^%ZN-R-<H.-IV%^R-.- 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG? 
PG?$>LH+:Y=%!%ZXZQ=:>(*R$>LY*E	:IU% F	=	<N+%]LY	;	<M,	<IE	<M6HS8AY,%]NGM,<(/?Y8Q,M,Y9I9APY(K9%[I8C8Y);$%[I8?HIJK7
>I9"Y*I)%DI*%DI(%D	<NGJKI,Y,*[I;0+:AK6	\K]	\LI0,0*+L0-:AK6	\I;
ZI5
[Q1I1%D/B)$)%!	G?XHH	XIY1I3Y2/^
5%]K8BLJC8%D%]K8%
	4+0/&(K=8 H
?:;*8H8&CNK8>G?IP&3*&%
9DJ2ZRNR>(*[	!IQY	%]%
K=&3Q	*S	 ;$*	RRNR= *G>(*-%
J1>(*!&4J0Y	K=&3Q	*(*GIP&3.C?:? )	<T0U:N5[MR5K	]OKIU% +H	!O	 	^+A+I*>R5K.5%]/K%]	Z%
	
+RK%
	
+V/O$IHH1)2F(0N0G	>%
%ZAX+$+6	?/"K<? /"%A:I&Y<IK%[%\+$I;> /"I<S"/"?9B/1/&9DK!Y+M+Q+<(*0Y*K$0+;$Y	;$Y(K"Y)K%Y&I*9DY*I&0,<P*]0**Z0-K&Y&Q)*SK$K&0+[$Q(*OM+Y*Q	*MK&9DK$[$.M+K Z3.4(;(9)D)W(:R.K&9FY&K&9DI&K$[$.%
IM"9F8F8F[$%
"9F8F8F8!K[%%
"[&.K[$K&9F8D8!K%[%..5)	?:HA?II??%%Z^!!R?!!^?))!?IIA^!)Z?HH??P  
?LR!?   ?FF??DH?^!!^?IIFNQY.?IY&R%%XAA?A?  ?
 PO?X ?3LL3G88G1)%FOOFH/HSK42D=DDNUD??/CCAB    C?!!!!?RLLRH\H(XDDD PHDB^)%^"? 2))&R!%ZLJ?HW%%Y^%%X!IECZ%%ZF))^T ZLR!JJJ!RLB)EB%?YW=Y9IQY	IQ[<IS% ?^IK%[I8AN"U0Q	*IK)"U.*QS<< <H.UY&: [<%
JH>(.UI&JN	=RU.UZ0IS% ?%I8?HK?K)"UI8?H%$%"/=K6Y1[<: Y3%3=%"/:%/=%F/:%IY0I0%G%H/:%$%E/=%"/=I0"U+*Q3+%J*Z0I1IK=+*IK=H+ K>Y2IW+"Y2K)Z0IQY1Q2+*;$"U?0%/:%F.EQ1*=K)"U<H+0IS% ?7J0"U.&K)+8??00?=M? .	-? DT1%
%ZAX*J*W&.HK9? .HI&"]*JI;> .HI<RH.HY	%A::A%[%"A:;V%[%\I	Y9Y8%\.]1Y0: Y1%
%Z.A+C+FY1*2&.-K9? .-I&"]Q0*2.-IQY0*2%A:%%Y7I0?H+OIQY0%!%Z-?IK<H.-K4I0= +$<(+ Y0%H.EQ0+\Q1%$R-%
;.-I	K8=H+/Y&I&S&/&;/&IU% ?>Y;Y</1?P?7N[68 [7R.:K6[4K7[5.G:K4[6K5[7.N: S7*\K6[6.U[7.U;K7[9K6[8S7**O6C;8B.^8 [7O6C:S6.^C:S9*;9F8F8FY&O8C:*>Y&O8C;I&
8.08!Y&"^<(/AI&> +DSA/A%ZARSLA8/L+\/LI	K==HKPK<"/LK "K!+ZBMBJ0&0!+$0"Y	/"IUA/)"^IY>(+*K"0+-??B ? IU% .%
.0Y.F0^&>%Z29RF**.%
IY>(*7I	BY%ZAR\?&*78J\I	%^I	&=.FRF%
IY>(*+IX&=*$IV%^.FJX%^&<%
IY>(*+JZ&=&<.FBMBJ<A0U00="A09<(/B=81Y&<X+WI8=H8P8HY8I98HY99Q&+K/BI99DY9I88DY89Q&+W/BY	O!Y&M&=8!S!I	>(/!M&Q&?+%S!/!;I9I<Y<8DI8I;Y;9/2[W58P;0NXORLOY7LOY8LOY9.;0NLXORLI7\OI8\OI9\O.L;I98!Y9I88 <X8AY8.X;IOY	I89D=P*580?X*9I8B=> *5I9>(*9;A%[Q	*	8PI	8!.O?N>	$R>%"
-Y;Y<%A-8A%[%"A-%A*: %[%"A*I.?H%\Q)+F%A:"<(+
I-I*IOY7I(> %$.>60I7=(+0K2=+08A%[I8/%;/%?4I7IO%[O3S3Y&I8]&Q&I9]&/3: %[%"A	NZH%: %[%"A*RI	8!I*=H*\8!Y&%A*%"A:%A	*Y&%A	%"A:%A*I&%[%\%A:%%<(*-J/I:Y7.?*Z;I8?8 Y(Q(%$%"A*%I8?H: I(Y(I8?H%$IOY).0Y8KN%[%%Y7/G?4OOSO"0%$%"A-%A*%"A:Y8Y98A%[%"A*%A-%\I;?+*%$%\%$<HQ,: 
[%"A-%A*Q)+\%%<(+;I:J/8!I-8!Y7I(> %$/ONRZE%]"N.IU% .H"N.HIPY	""%
%Z+9*]*ZI	%^*QIP&=.NJ8Y	""IV*X>D?H."I	B7>(."I	&=."IWY	J7&=Q	*0.-N4BBMG<8<F<T"H:"N"N%]K%"H"N"%]KK"H"H"N(HR>(+V"I<"N"H"N("NUH->(X1Z9%N/+%"(%F<C%""(%E"%R9I8?H+
8%MJ98B8 B:HX"-J5&;J6&<HS8A&;H	&<HSXHHP8 Y3K=Y4H,H-Y5LH>(+![3PHLH%G%"/:K:	6HH	5LHY2IKHHXH;V[*IKI58!I4Y9Y8%%Y7%F/:%IY0I0I2=:Y&I&8!I2Y	I&Y2I	-I3HP8A9F8DK:Y1I1-I5-I	8!<(*H%G%H/:: %I:A%[I8I5Y5S3I1	6I5K*	5IKI5Y5I2>(*(: Y5K9Y48AQ3*[I6	4	72JI=> /8/)T!:/*2K	2	4/-
<,<8=N8-P=?2A^=02?I[XDT8 I8Y	8 I8XHK!NLH",Q	*O.FY&I=:.T>D?*I&0&0!*^0":.TI&0V>D?H*\0Q*%0R.TY9I=> :I92A\I2AHA.,Y9: I9XIHK
A.8U"THU"T/AK\%[I8C^/HZ2J2C]K "T/NY&I6I&Y6I&/UF8?AC2A%Z=)/+/,I	/"BC=&>F&0B; 1X:5X0(52A
=2J	<F??&

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search