File EX2PAT.SV (save files (Executable program)

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

?:2CBBHLAHGPCXG8CDMH*Y$ML
8KY$
DMX*D,LJ4KLY(
 (KLK4<*K,;:=L*,FL$KX,H8,[DK,8LL\K[0MLHXKH?,D4ID9$DM4S*$2DMD2L]H
DA<QHS(L 0S*$"MP9L9$DDP9Y$MDMD2L]H
DA<IDK$5
,SH*8^L4ID9$TM4SH*(2+AI5N0L?<4L <	??LE,?NL90DDPTQHQ(QDW<QDQDZO0*LI U!4IH?(D)TIY$MLNTZI,
D;<YHQ(NHG,ILJ$5DX8LKH:LC$/P49(JTLKP?LN8+P 3*"B"BBBZ()0Q ]HL?M?            ?M?M",SI,"    B JMT(SR^2+SI^2)?M?M OF SQUARES",!!?M?M?(7:IPIFYF(W:IPIFYF(U2A:MF2IAVC-8K FOCVT8A.H73?M2AHG\F2B-U0BLFXG2C-U>A*DAC FREQUENCY TRANSFORMATION PROGRAM?MA.DBC?MA3DCT !!?MB
DJA "NUMBER OF DATA ARRA:K?Z2^2R2*CK>Z3K=Z48AZ1K<Z5J1^3J3K;Z3R5*NR4*X*]K:Z3K9Z1*LK8Z3K=Z4K7Z5K6^3R3R5*K5^3R4*.2C*K4Z3*!OF DATA POINTS
",N?MCJDRS TM=(N-1)*T1?MC"DTS DF=1/TM/2; S PI=3.141593; S P2=6.283186?MC4DVT "NUMBER OF DATA =",%3.00,N,!?M.E>???;]5B]:P>>?>]4NY+I+8!YNYMK?Y
K>YOK=YZYUK<YQM
8 EZ=Q:MZ8 E
=A9D<PQUQQ*WQ
QZQO*LIU8!IM?*)IUYMINZ5I
K;Y
QN*GI+J59D8FK:2C/9-1; S Z=1/(2^(-H))?MMF VS C=1?MMY XS U=FITR(P*Z); S K=T*FNEW(NU,U)?MM) ZS CO=FCOS(K); S SN=FSIN(K)?MNA \S GR=CO*A(P)+SN*X(P); S GI=CJJTK?4N>+P7DEA*M2 N L7L*JB 7JOM2 	LS7N*JB 7JOM6 	TP7E*JB 3TSA* 6(.2Z5")*M6 N N7A*JB 7JCM6 WOT*M6 R +ACD.(
2"66)*JB 3ASN. B(.0^7")*M+AB,3S3Z*MBJ6 OBW*M6 N N7L*JB 3TSA* CI3N7A3ESA*MBJ2 OD3A& 2 GN3MGED*M6 N N7L*JB 7I+S2 GN3MGED*M2 & +SCZ3ISN3EGX*MBJ2 7J3PF >G??%)8 H^H99 H8H^,AH+?4KK> 0!(Q0&:,P0!(W0&,VH! PH" P,[BMBJ0Y($0^,YNI?YOMNYMIM8BA><(,(I==HI<I; PQO(<QN(*IM(
8!YPI:1(I91)1.)EQP)E1*,>88C\B)=WFDB(?1= H?YIKKS?UJ=F?40? ?<??D?:F ?<=VGPUF-LAKLB0 B>">&F;0!1 <%JNB A? ??> C?K>ZD8<(*KI>/=*P/</;/:/92K*;K81(88K71)K6Z
1.*YR
*Z1***+;H!>(*02IH\OHU\OHV\OHW\OHX<H%9\O2AX
H <(+RI8<(-7I6<(*VI5<(+JI4> -3X^\]2HRM1]1*2P!-3*NHUX[P
HV*U0!+R0"2KH*]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ 4RNDJPAL9*HG:0& [K? ( [K>YNK=Y[  VC<9F8D][  VC<M[8B][K; PQ[QN*JK:XOK>YTLO8 16QT*
12/9XX YY X1 Y1XWXXI*XZ: X]XY%)X H I(<(-3I	>(+T%&.)<XI68AX HYI%?*3HY9HHZXQH <X+P8F8F8FLQ\QPY*3HU> P]-3PZI$*2B1[&HU>(+0(-[&J2J%0BA??>+5K	I=H:9F8FA"2IH\OK&/[HY>(H">(BA%B GA&?<D&K?Z!K>Z Q4*SN!=H:9H9H2Y^!2AR!R *G.N!=H:9H9H2YN!^!2AR!R *S.I^9I]<X*+I\9PI <PR . H
%[H\%[%- DOES NOT EXIST:%-ILLEGAK?Z!K>Z 2YN!2A^!R!R +E/+K2A-XD4LMIW<(+QIV<(+]I;<(+ IU/PLM%T+QLMIS<(+QIR%T+ H!> HU>(-3I	HOXZ;VX^K?%Q9F8FA"LZ\Z2AH IP<(%)X 0(YMI
K?Y
IM*RYMI
K>Y
IM*V[JK=Y
: KJK<=*K;K:=*F;K9XHK8[KK8[LK7[MLHK6?+DIM9DYMSM*2IM2Q]
2AQ
SL* SL*"IM9D9D9D9DYMIM2Q]
2AI
K5Y
SK*^.LIM9TYMSM*2*+*7IM2Q]
2AQ
S)*!S%+
K$[%K9[&S	/V;K&8H[&/V?4?4+AIQ+IOPT+3IQ$6XTHUN0?4? 	???E?;NCI0&	?	>	=K< [I+2K/; (/:CSCVB/CI];2A2J%0KH"J/> *)J0X(J1X	J2X&^3^4J5^6X"X)..OS8D?H(Q..GFVA<?"EB$CF+BD8%?HKCXKBXAY
I
K9> +OK8XJK<[%2Q\JS%+K2AK7XHK6YNK5YO9DYMLHK9?8AIMQO+U2I]
2AQ
QN+S//]HUSHVSHWSHX>(/	H;]HXS?4>+	?M?0BLNX$R60& [K? (  V8!K>> *K/= [K< (/;AHA! I THOUGHT SO.***ARE***YOU***SURE?+9H3XO$ZM88D8 ?P%J[[2.LO[1;XLO[0K18D?X+YK02> +Y%: K09DK18D?X+HK0H<+XK0X!K18!H19X[0.;Z[1K008!H!=H/[0.T4*0%0FHK(A: 2I\=,.S*/%%0HH??[(A/%$V!AF+9K0$
K2[2/.$>SABLOPCYLY+D" .0V1"06)*JB 3DGC. GXA7D*JB 3TSA. F(*4&3*MBJ2 OD7AB 3RSOA7D*JB 3DGC6 X*MBJ2 OD7A& Y*M6 R +ACD.(J0*0&0*MBJ2 OD3AR 7ESLA7X*JB 3TSA. B(.2B0")*M2 R +CCA3D3E7T	A*MBJ2 GT+D" .0B2"06)*JB 3DGC. GX*MBJ2 GT+D" .0B3"06)*JB 3DGC. GY*MBJ2 7J3P& 2 
S7TCU2MVJ+N3DY+0&K?YNK>ZF[(RFQN*F [K= (K<Y^K;YN9  VK:<(+\K9C8<X8B<PM^]^<PQ^QN*RK7Y
I+<(/68!YOK?YNK5Z/M
8!K(R/> /4Q
QN*- [K3 (  VYMIM8!K2>(/1IM8!K0>(//*6PATTERN IN MEMORY. REPLACE? TYPE Y OR N. : YN*YWHAT IS PATTERN? SLDRSV$%I>BCNR^CYQGRK(RFT?B.=R?3Q(Q
[(?9Q
QN*Q
QO/?I+K>?+^Q+K=Y^K<YNM^Q^]
Q
QN*O8I+888888]
: Y4K;Y5 [K: (<B"6	9	8	7Q5*	688M
8	5 [K4 (/3K2YXK1YYK0YZY&Y	K3Y$K3Y%K3Y(K/Y).6END TRAINING.CONT. PATTERN AREA FILLED. [K. (/3 [K- (/2$&IO$&"&SSCASSCAA(A$BSHHLGFX$SO?<?9Q(? P)0&	?	>	=K< [I+2K/; (/:KLH+X+KLK?>(*["KLK>> .AILX2.AI^[L"H2AT> *].ATTR%*%+A*>KL9F8FAKOH
HKL9J8J8HAKOI
IKJZ%SISK+CI.	=M+CKI[HY
I
K9> +OK8XJK<[%2Q\JS%+K2AK7XHK6YNK5YO9DYMLHK9?8AIMQO+U2I]
2AQ
QN+S/%;<H+2S7+.: [7+0H]	8%<+&S7<H/?4>+	?M?0BLNX$R6HORHN.H:HY(NY WHATHISDPPADTHEHN?AQH/8CRL^Y\QR,(XRTH?8BL=<RH3 QDQ,
L($?ERD
8QD*D
<Q/$?L+8KH?,H^,QDK$=L^0KY4ND^8QD]D

8QL*(OH ,ID8$BM4I9$HLM,KL](
L PYDK$:D5, HK9(H<H"\6L8\	D	D6H5L*	45L
P
HM\
L3H	 ,[H1  /0H<KY,XD.$YDK$-: YQ8AYW
?K>Y\K=YNK<Y[K=YO]\M[8DC;8BM\]\IWI[Y[QO*OQ\: IW> *&QN*LQQ/:K9YW*HI[K8Y[*
* %<%6%5P3*3%%5/HYXXHWA,8!HXA,>(/:%2HX/9%": X0HR?H,ZH]K8<(+NK7>(/6;X*[%<P0+]HWXZ%	HPXLHQXMHRXNHZXO*IHW8!HZ>(+T%%)$*IHZY8 Z/5P\L\I >(/4L\XZ%</3[Z[&^AD6?/0A Z?(? X*[!YU;[O??QU;[O>?QU;[O=?QU;[O<?QUO?O>9HYMO=O<9HIM9H8![ IU< * *%K;> +"8A[!: YQK:Y[;[YNK!<(*/K9K
Z3M[K 8][Q[QN*1QQ*?K7YNK6Y[*1: YQK6Y\K5YNYMM\9DC78B<XK7]\M\Q\IMQN+E9H8!YMI\K5Y\YUIMM\QUQ\=H+Z/48 [K3 (<BINCONSISTENT BACKGRND.[	\? X*?8 (?<Y(YKYHX+;IUK?<(/>=H8!YUIU8!YVIW<P8!YW: YPK=YNK<<PK;Y[I[Y]IVYOK:Z^M[8R^IWI[Y[QO*]K=IUYOM[]]IWI]Y]IWI[Y[QO*(IVYOK9Z68R
]]IWI]Y]QO*6IQ>(+IIW9D:K;<P8!I[Y[QN*WQP/>IW9D:A<X8!YW: YNIQ>(K8K7<XK6*VHZXZH,A0>(+-HZAP>(+*%%))+-IPHZXZHYA>HZXY-	=I.0\
X* K\[\O?(? ^?0QQ*F8AYWK?/>O=ZI.I8IT<(*&K?<(*%K><(*$K=<(*K<>(*"	;*CH3>(-: X3XY-8A8A8A8A8A8AXX%</:HYZ*BHY8!X HZP *1*BK9< K8< 8A<(/7H?<(/6K5<(+Z8A<(+&W4K3[WH	?(+OSX+S: [XO4X KW, SYKW
Y+OBM??L7K(>(+[(P
X^H	? %]I\[W+MS(/7K2-H^-6^+Y%^.Y%,\"%BL*M+C*AA4>AZTZ.?;X[BYJ"B/?;0&K>YXK=YYK<YZY&Y	K;Z$[L [K: (*,TYPE IN A TWO-OCTAL-DIGIT DELTA X, DR. BOLIE. 0Z  VC99D8F]X  VC9MX]XYUK8YQMX9H<XQUQQ*<:IUK7< +SMX]YKL>(+M/6SLK5Z$QXQY*P:K4 (*P NOT ALLOWED, SAM.I.8!M)=+\[^M)K
ZM)%++PCZ0J0%-8D"+J0!WY,"???:G TX,A
A(A$8K?YSI$9HY$<X*KI%9DY%*BQZMZI%<(*UQS*J: [*+I(8B9DY$I$<XK>Y(I)8B9DY%I%<XK>Y)K= (+G OK.K< (/;DELTA X, DELTA Y PRODUCT NOT ALLOWED, DR. BOLIE.:IZK:YMMMK9]MO8
7/6	9&KWXIK?[ LO8 16S +X12;/UI6> +-I7>(/!I1K2Y0Y7/!I1K3Y0Y6/!0!1 IL;$A$ BAF E"."(>?<K?Y3K>Y/K>Y.K=Y1K<Y%Y6Y7K;XO	:5A*P;K9XO	:I.I%Y.K>I.Y)K8I.Y	K>I1Y0	7K6I.> *,K5I.Y.Q6+BK>I.> +BI$I/Y/K8I/Y&K>I/Y(I	Y)K4I.Y.Q7Q3+B.55A+C]1I0Y1K3Y2KV16KV16KV16KV1612Q2+J*S>?PP
RDATA IS STORED.ORED.!AHWA>>(/&%*< S&/&W0>GWJ?;?;>BC!?A%U%VD(A? 2J3W.,F-"4*M3WC+K6,"1642JOL+N3T"0*M3M;C/TB,*M*J.0B2"0*M3S?M3OT",602JN +LCL3S3T2 GRR*M2 OD7AB 3P	ON7T6JR +ACDW7L2JR +CCA3WCK*M2 GT+D" .6B0")*M2 OD7A^ 3TKAL7E6JR +ACD.(B1*0&0*MBJ3DGC6 SB3A3BE*M
 GT+D" .-B4")*M2 OD3A6 7CSN*MBJ3TSA* 6(*4&0*MBJ3DGC2 OL: [K? (  VYMIM8!K>>(*RIM8!K=<(<B*	<	;	<<BDISPLAY IMAGE? TYPE Y (YES) OR N (NO). H!	*DH"	*EH	*FKAX%KX&J?X	AX	.D  WRITE :0&K:YXK9YYK8YZY&Y	K7Y$K7Y%K7Y(K6Y)	5	<	;	</7IT%H!?8 X(H%<(/&?H$)H!<(/&/T5P;]:1:.:
P;H8!XH"8 <X9AX"$CBAA(A$X:CNCY8V:K?XMK>[%K=[	K=[&:[([)K<[K<[$:LMK;=*1K:=*	K:=*)YMK(S9F[(IMK:=*+:*::*3:*4:*9K<(+H*Q:K98AK(S9F[(K98AK)S$9F[)S&*-K)K98B[)K(K98B[(K(2I
%2AK%K8[%K)2I
%2AK%K7[%K&< *JS	+^K6 >.:K%K5[%*H+0%W9 H$X$+		>6/]X$/]ZH?1PBF(?:? ^E	?:K?ZNK>ZO^NNNK=RN^NRO*F	<<BZ:Z;J=<(J>>(*5$GB<Z8J8: H$X$H$8!J8> *1H%8!J9> *1H&8!J:=8!8A?-^$G28*WX$-^XMADADBBC=C=/??I[WH0WHYWH]W>H%%1*H6IN> +LHN> +R2K//=KXZHZ8F8F(%/8D(8J8H((:H?%)/W=$C.IK
)HZ/(GAP2ILI2A/0U"2I\H2A/52I
>:B0A(+A: "+612JWK+YB,7JCM2 WK/YF+*MBJ3AWZ+R202 7J7P" 3B/L6M*J3E?R2,* +MCP3OWN3C/H6M*J3E?R*2B,7JCM6 
T3OCK*M3XW3IWT2,* +MCP3XWI7T2J* +MCP6 
X7HSI6M"J3W	H+TB,7JOM2 	LT*M6 OI3Z2 3TC*MBJ7JCM2 OW3H
NE*M2 7J3P& 7NKCM7T2JKX+L3K2 7J3S2 I7T2J& +SCZ3LOTH*M2 7J

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