File CHGPAT.SV (save files (Executable program)

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

?:2CBBHLAHGPCXG8CL<,	 $[+,2H/:L($/P,9BL DWHXPLXRCHABEL$H+,ID8$!N4YDK$?L
8K[,N=4[DK$<DZTYDK$;LO(KLYHQDQ<M8T DZD=:4HZ8LEH
ID=L90DDPTQHQ(QD]<QDQDZDO*I,
D9<YI,ZD9(YHS(MDNTIL< B!4IH?(D8TIY$MN0[HS,ND<IDK$8
8QH*,GDE<I.1J52MNJ3R[L.=N32M6J7EOS.=B52M2J3I;S.=N42MRJ7ICS7L	A.=B7"0606J	T/P7E"2666JOB/W^=.0J06M&J/WF="5666J
X.=V1"7*M7N
E7PKT.=Z1"0*M7CKU7PKT.=Z1"1*M7CSN/RF="6622J;C/TF="663.JR*.4B06M^J7ASI",606JR +ACD.(R-"06)2JR +CCA7CSN*MBJ.6B5"1*M2 7J+P: "-612JN +LCA3C3L2M2J3OSA()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 !!?MBQDJA "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>[NK=[MK<YZYUK;YOK:YQ2QM
8 EZ=Q:MZ8 E
2I=A9D<PQUQQ*]Q
QZQO*PI
K9Y
IZK9YZSM*NIU<B8!IM?*8IUYMIN[LSN+I
K8Y
QN*G+EI
K7Y
QN*II+KL9D8FK62C/5 S K=T*FNEW(NU,U)?MM) ZS CO=FCOS(K); S SN=FSIN(K)?MNA \S GR=CO*A(P)+SN*X(P)JJT8C4M?4?=)? ?;N6 WC7RSPR*M2 OD3A: 7ECWT7R2J& +SCZ7CSN*MBJ7JCM6 CD7DSAA*M2 7J3SN 3R[L*MBJ3TSA2 R(+S	T*MBJ7JOM2 WMS7S2J* +MCP7I^ 7ASI2MRJ3PGD+T3A. V6"0612J* +MCP.
F-*MBJ3DGC* CI7CKU7PKT*MBJ3TSA2 WN7WSPR*M2 OD3AN 7UCRT7R6JR +ACD.(R-")*M2 OD3AN 7NKT*MBJ3TSA2 	D3SC"1*M>G??%)8 H^H99 H8H^,AH+?4KK> 0!(Q0&:,P0!(W0&,VH! PH" P,[BMBJ0Y($0^,YNI?YOMNYMIM8BA><(,(I==HI<I; PQO(<QN(*IM(08!YPI:1(I91)1.)EQP)E1*,>88C\B)=WFDB(?1= H?YI
KS?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*
;K>XJK=[Z2Q\JSZ*L2A*
YMI
K<Y
IM*[WK=Y
: KW<(*FK;=*K:K9=*Q;K8XHK7[XK7[YK6[ZLHK5?+QIM9DYMSZ*?IM2Q]
2AQ
SY*-SY*/IM9D9D9D9DYMIM2Q]
2AI
K4Y
SX*+.WIM9TYMSZ*?*8K9[&S	/V;K&8H[&/V?4?4+AIQ+IOPT+3IQ$6XTN0?4? 	???E?;CNM?I0&	?	>	=K<	; [I+2K/: (/9CVB/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?BLHWPX$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
YK2[2/.$>SABLOPCYLY/NF-")*M2 OD/AF "7*M2 7J3S2 3OSAI7T.JZ .5F0*MBJ7JCM* 6."1*M2 3C3AN L7L2J?L+A3D2 GT+D" .1V4")*M2 OD/AF "7*M2 7J3S2 3OSAI7T2J	W3N?D+WB,3TSA6 
Y*MBJ3TSA2 WD3LGTY*M2 OD7A& W*M2 GT+D" .1B0")*M2 GT7D& W*M2 OD7A& "1*M2 GT+D" .-B1"06)6JR +ACDY7W2JR +CCAY7YY+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$BSHHWGFX$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$R62 GT3DR 3IOSH61.JZ .1Z6*MBJ3TSA2 	D3SC"1*M. F6"6666JR +ACD7DOI/CGH*MBJ.6Z1"6*M. F6"6622J& +SCZ7CSNR*M2 7J+P: .-J1*MBJ7JCM2 ?LA7D2J	D3SC.1^,.6^72MRJ7U
M+I3N. B2.0.0.2B0.0J;.2B0.;J2"0602J;I7DE",606JOD+TB,7TE+T> 7DSA3A& 7SN 7TKO+E;D"/*M"$*MBLBZ: 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? 6 
Y*MBJ3SGZ2 3CA*M2 7J3PR 3PGDT7A6JR +ACD3D3E7TA*MBJ3TSA6 
X*MBJ3DGC6 
X*MBJ3TSA* 6(.1B0")*M2 GT7D" W*M2 OD7A" X*M2 GT+D" .1B0")*M2 GT7D" W*M2 OD7A" "1*M2 GT7D& Y*M2 OD7A& "1*M2 GT+D" .-B2"06)6JR +ACDY7W2JR +CCAY7W6JR +ACD.(F-.7^3")*M2 GT3DN 7UCR: [K? (  VYMIM8!K>>(*RIM8!K=<(<B*	<	;	<<BDISPLAY IMAGE? TYPE Y (YES) OR N (NO). 
!	*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:.:9P;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$9
[)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(L1IY,1L1HYLKDZD6(K1,6LZX1LKDZL6H1HQ,2DND*D>?PDRHDDHTAHISS<TRPEX.TL1,?L%
!>1H C?DD%T%PZ(LA<L 0D"B"B&*

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