File ANWEIS.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE7A
N7EOI3U
N"M&J3C7O3M;O2 WN+R3R7IKE+R3S+L3C+C3C3D;I2,	FN*M2I?C3M?M7NN +Y3M3IWD+N3T7IWN7MJ,3N7U2,3S3E
N2,C6,SS3R;IG*M2I?C3M?M7NN 3TOA3KJ,7OST+O3M7TCO2,	K3T7U6,+K3E
I+E3R3NSI+E3K3NWZ3IWGR*M2I?C3M?M3N& +C20/RCC2,OS60B,20&,60R,20^,3P;UK7T2JNI3O7M+OCN7I+C3E
I+E3R7R+C3E
I+E3R3PWZ3IWG3R&,3Z	E7GKE6,+T3E
I+E3R7S+C3E
IE7R2JNI3O7M+OCN7ISC+A3B7RSC+A3B7SSC+A3B7S+C6,SP+A3B+P3Z3IGT3B&,7ZR,3TKA6,+T"M&J7ISN3EWG7RB 3U/N3T^,3P;U+K3T7NWP7NSK2,;I7KSI+U3M3I/N3I&,3N	K20&,3N	K"1*M2I;I3T
E+ECR7NKE3R&,7EKR/SZ(.1N,2)2,3CN,C*M2I;I3T
E+ECR3S7Y2,SI7ESN2,;I+U3M3SWL+N3G+C3H7SKT3I
N.(B8")*M2I;I3T
E+ECR3SGT+CK.2B02)J,7OST+OM*1&02,?T/PF(*02)7KSI+UM.2B0*,&4"M&J7ISN3EWG3R: 3IWD/KF(*020*22)3NWZ3IWG3R&,+C20/RCC2,OS60B,20&,60R,"0*M2I;I3T
E+ECR7I+C3E
I+E3R7R+C3E
I+E3R3PWZ3IWG3R&,3Z	E7GKE6,+T3E
I+E3R7S+C3E
IE7R2J&I3NWT7GKE2 OI3TKA.(B2*02)7SSC+AB.2B06)N,+CZ*5&06,SP+AB.1B06)B,/ZV("06)2J&I3NWT7GKE6 SI+AB.1B02)&,/ZV(*02)3TGT/BR(*0&06,+T.(B5")*M2IWR+ACL7RWN7MJ,3CGT/BV("06)2J2I3O	G3C3A2 WL+E3R+D3DB*M2IGC+LCL3E;I3K3E7LKE+N6(.1F,")*M2IGC+LCL3E;I3K3E7LKE/NF(*,&1"M&J
W	H+LCE6(CG3U/N3T:.+E".*-&1")*MC&$3W	R+TE.1F,6)CG3U/N3T:,3P;U+KT.2F,2):,3P;U+KT.3F,")*M/CF$2I?F3RGM+T^(7GB13U/N+T^:.,[I*,B	7GB23U/N+T^:.,[I*,B	7GB33U/N+T^:.,[I")*M*IB 7GSO/OF(*021.1J0.,B1.3F,*024.1V0.,B1.6F,*027.1"02)^,3P;UK7T.JB121&I+F" 3S7Y6.GE*.&12I	3D
ET*M*IB 3I/N3I&=3N	K3T7U2(SI7ESN")*M*IB +ICF2(;I+K;I+E;Q*0B)3C3A3LZ 3AGT/LF(*0&4"M&J2 & 3N	K21.=7IWT3M&(3N	K*,&2"M&J2 & +F" 3I/N+I:1+E;Q"7&)7WF7NSC3I;O2-SI7ESN".*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 N 3A3L6 KE7SSE3Z;E*(28"16)*JBI2 3ES7E*JBI* B +ICF2(;I/KGI6.GE*.
56I[+A;R2-SI7ESN".*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B * B 3C3A3LV 3RWS3TWZ/N"(*,&1"M&J* B * B 3C3A3LV 3I/N3E3L3E;R.(V1*,&16I[3A	R3A3B3EGN3NGFN7G*JBI* B 2 N 3A3L2 	E3NWK3LWL+RN7KSI+UM3I/N/IN,.)V,")*M*IB * B 2 GC+LCL7AOU7DWRC	K3GV3RGI3BWL"M&J* B 2 3ES7E*JBI* 
 2 & +F" 3I/N+I:1+E;Q"6&)7KP+O;C2-SI7ESN".*M*IB * B * B 3C3A3L^ 7EOTY7M*JBI* B * B 2 GC+LCL3E;I3K3E7LKE/NB(*,&66I+3EGT"M&J2IGC+LCL3E;I3K3E7LKE3N&(3N	K*,&3"M&J* B * B 2 & 7FN(+Y;M+E;Q*1&1*IK"(6""J&I6 N /Y7M"7&I+2"""*M*IBI2 W3IWL6 N(+Y;M+E;Q"7&)+2"""*M*IBI*
B 3C3A3L^ 7EOTY7M"J&I* B 2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J*IB 2 N 3A3L6 WA7SKD3U/C"M&J*IB 2 N 3A3L6 WA3FSA*(21"66)"J&I* B 2 GC+LCL3E;I3K3E7LKE7NB(3U/N/TV(.)^,")*M*IBI* B 3C3A3LF 3U/S3E3L3E;R*(&5"M&J*IB 2 & 3F&(3N	K6.GE..Z26.KO2.;I+K;I+E;Q*2&76I
7RSIE*M*IBI* B 6 ^ 3H3I7EN(+Y;M+E;Q*2&4"M&J2INI3A3L2 WG7T	SM*M"I&I3C3A7LN 3C;OS7T"J&I2IGC+LCL7AOU3K3E7LKE/NR(")*M"I&I3C3A3LF 3U/S3E3L3E;R*(&5"M&J*IB * B 2 ;E3DW3IWL"M&J*IB 2 V 3N	DF*M*IBI2 ;E3DW3IWL"M&J*IB +ICF6(	S3M:./EF."0&)+&"""*M*IBI* B 3C3A3LZ 3E3H*(
4"M&J*IB 7EOLE*M*IB *IB 2 N 3A3L2 WG7T	SM*M*IBI2 ;E3D[I"M&J2I;E3D[I"M&J* B * B 2 N 3A3L2 3P7ISS"M&J" & 3C3A3LF 3U/S3E3L3E;R*(&1"M&J* B * B 7EOLE*M*IB * B * B 3C3A3LZ 3AGT/LF(*0&3"M&J* B * B 3ESNI7F*JBI* B 3ESNI7F*JBI2 ;E3D[I"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&
+ICF6(	S3MV./QV."3&)3WB3G;I"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3RWS3TWZ/NJ(*,&1"M&J2 N 3A3L2 	E3NWK3LWL+RN.1F,")*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6 N(+Y;M+E;Q*6&32I	F*M*IB 3C3A3L^ 7EOTY7M*JSC2IGC+LCL3SWTS7T*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J2 N 3A3L6 WA7SK
3U/C2MNJ2$NI3A3L6 SS7ESS"M&J2 J 6=WP7NSK*(&52.WN".61*JBI2 [I2 J(2)N 3A3L2 GF3T3A.(N1"06)*JBI2 GC+LCL7AOU3K3E7LKE/NV(")*M*IB +ICF6(	S3M:./E^."4&)3TE7N*JBI* B 3C3A3LZ 3E3H.(J5")*M*IB 7EOLE*M*IB 2 N 3A3L2 WG7T	SM*M*IB 3ESNI7F*JSC2IGC+LCL3SWTS7T*JBI2 GC+LCL7E
R7E+T+EN.3F,")*M*IB 3C3A3LV 3I/N3E3L7LKE/NF(*,&12MNJ2$NI3A3L6 SS7ESS"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3MV./QV."4&)3GCS7E*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L2 	E3NWK3LWL+RN.1F,")*M*IB 3C3A3LF 3USS3ROUK*M*IB 7BB=3U/N/TV(2)V./QJ.6.KO6.WP7NSK*(&56.GE".64*JB
2 [I* :(7NSO*.	B2 GC+LCL7FSA+AL.1B1")*M*IB +ICF6(	S3M:./EZ."7&)3[O"M&J* B 2 GC+LCL3FE/L"(")*M*IB 7EOLE*M*IB 2 N 3A3L2 WG7T	SM*M*IB 3ESNI7F*JBI2 GC+LCL7EOR7E+T+EN.4F,")*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6(	S3MV./Q^."9&)3W3IWL"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3L
 3I/N3E3L3E;R*(21"16)*JBI2 GC+LCL7AOU7DWRC7K*JBI. 7B3P;U+KT*5:)+N;E"1*M*IB +ICF*(	B2 GC+LCL7FSA+AL.1B32)BI7TCY2 ?B3OWL+ACN7E
R7ASRE7T*JBI2 GC+LCL7AOU3K3E7LKE/NV(")*M*IB +ICF6(	S3M:./EV."8&)3?D"M&J* B 2 GC+LCL3FE/LV("46)*JBI2 3ES7E*JBI* B 3C3A3L^ 7EOTY7M*JBI2 ;E3D[I"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3MV./Q^."3&)3WR3PGET*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7EOR7E+T+EN.7F,")*M*IB
3C3A3LV 3I/N3E3L3E;R*(21"16)*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F" 3S7Y6.GE..F62)BI7FKO"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&2"M&J2 & 3N	K2=;I7KSI+UM3IWD+N	T"M&J2 & +F" 3I/N3IV./QB.2)N 3A3L2 GF3T3A.(B1"46)*JBI2 ;I/KGI2=	K3T7U2(;I+K3I"2
)*JBI2 [I2(;I/KGI2.WN*.&52 GC+LCL7FSA+AL.1N0")*M*IB 3I/N/I617KSI+UM3I/N/IN,")*M*IB 3B&=3N	K21V./QR.6.KO2.;I/KGI6.GE".62*JBI2 [I* :(7NSO*.	B2 GC+LCL7FSA+AL.1N4")*M*IB 3C3A3LV 3I/N3E3L3E;R2(;I/KGI*,&5"M&J2 N 3A3L2 WG7T	SM*M*IB 7BN=+Y;M+E;Q*2:4+O;R3S7Y6.GE..
16.KO6.	S3MV./QJ."0*M*IB +ICF2(:.+O;T+BB)3C3A3LZ 3AGT/LV("16)*JBI2 [I6 N(+Y;M+N;E*2&0.I+"=*M*IB 2 N 3A3L2 WF+HL*5&1"M&J2 V 3LWS"M&J* B 2 GC+LCL7GSE3S7Y"M&J2 V 3N	DF*M*IB 3C3A3LV 3I/N3E3L3E;R*(21"16)*JBI2 GC+LCL7AOU7DWRC7K*JBI. 7B3P;U+KT*5:)+N;E7NWP7NSK*(2
"56)*JBI2 [I2 J(2)N 3A3L2 GF3T3A.(R1"56)*JBI2 GC+LCL7AOU3K3E7LKE/NV(")*M*IB +ICF6(	S3M:./E^."5&)3?T"M&J* B 2 [I6 N(+Y;M+N;E*5&72 GC+LCL7FSA+AL*5&52IS3O;WT7O*JBI2 ;E3D[I"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3I/N3E3L3E;R*(21"16)*JBI2 GC+LCL7AOU7DWRC7K*JBI. 7B3
;U+KT*5:)+N;E7NWP7NSK*(22"56)*JBI2 [I2 J(2)N 3A3L2 GF3T3A.(R1"56)*JBI2 GC+LCL7AOU3K3E7LKE/NV(")*M*IB +ICF6(	S3M:./EV."8&)3?D"M&J* B 2 GC+LCL3FE/LV("46)*JBI2 3ES7E*JBI* B 3C3A3L^ 7EOTY7M*JBI2 ;E3D[I"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J3C3A3LZ 3AGT/L&("96).JB122
I7FN(+Y;M+E;Q*2&3*IK*;B"2 WV7RWBN7D*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L2 	E3NWK3LWL+RN.1F,")*M*IB 7GSO/OF "9692JVI3N	DF*M2I[I6 N(+Y;M+E;Q*6&02IWN7D*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 WA3SWK3LWL+RN"16)2JVI3LWS"M&J2 N 3A3L2 WF+HL*1&4"M&J2 J 6=	S3M:./EF.2.;A7DN.+Y
M+N;E*5:33ASN6.	S3M:./EZ.23F.+N;D3S7Y2.WN..R5"M&J21F.+N;D3S7Y2.WN..&72.;A7DN.+Y;M+N;E*7:33ASN6.	S3M:./EZ."1*M*IB +IF3BN)3A3L2 GF3T3A.(N1")*M2I;E3D[I"M&J7GSO/OF "969.JB123&I+F" 3S7Y6.GE..&52)BI7EOL+EB +ICN+I7F7A
N7EOI3U
N"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3RWS3TWZ/NF(*,&1"M&J7EOLE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M.1R02IGC+LCL3C;O3SGT+NCT2I[3A3L7A
N7EOI3U
N"M&J7BB=3U/N/TV(2):.3E:.3P;U+KT.2V,")*M2I[I2 J(2)N 3A3L2 GF3T3A.(R1"76)2JNI3A3L6 WA3SWK3LWL+RN"5&)3GTU*M2IGC+LCL7AOU3K3E7LKE/NR(")*M2IW3IWL6(	S3MV./Q^.2)BI*"J,"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LN 7OON3T;AT*M*IB 7BB=3U/N/TV(2):.3E:.3P;U+KT.2V,")*M*IB +ICF*(
B2 GC+LCL7FSA+AL.1^4")*M*IB 3C3A3LF 3U/S3E3L3E;R*(&5"M&J2 N 3A3L6 WA3SWK3LWL+RN"46)2JVI7N
D3H3IE*M2I[I6(	S3M:./EJ."4&)/*"""*M*IB 3C3A3LZ 3E3H*(&5"M&J7EOLE*M*IB 3C3A3L^ 7EOTY7M2JVI3N	DF*M2IGC+LCL7EOR7E+T+EN.5F,")*M2IGC+LCL3E;I3K3E7LKE/NF(*,&1"M&J7GSO/OF "969.JFL"0&5+ICF6(	S3MV./QJ."3&)/."*"B 7COA3EZ-7OSR7SSE3Z;UG*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LC
7EOR7E+T+EN.4F,")*M2I3ES7E*JBI2 [I6(	S3MV./QZ."9&)7SO7HKES*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 & +F" 3S7Y2.WN..R22)BI*"J:"M&J* B * B 3C3A3LZ 3E3H*(&5"M&J* B 2 3ES7E*JBI* B 2 N 3A3L2 WG7T	SM*M*IB 2 V 3N	DF*M*IB 2 N 3A3L6 KE7SSE3Z;E*(26"16)*JBI* B 3C3A3LV 3I/N3E3
3E;R*(21"16)*JBI2 3ES7E*JBI* B +IF3S7Y2.WN..B6")*M*IB * B 2 GC+LCL3FE/LF("4&)/."2"> 7DKE2 ;ED*M*IB 2 V 3LWS"M&J* B * B 3C3A3L^ 7EOTY7M*JBI* B 2 N 3A3L6 WA3SWK3LWL+RN"16)*JBI* B 3ESNI7F*JBI2 ;E3D[I"M&J3ESNI7F*JSC2IGC+LCL3SWTS7T2J^I3O?T. &1"9*M.1Z02I[I6 N(+
;M+N;E*6&02IW+NCD3B	E2 GCS7E*JBI2 GC+LCL3FE/LF("36)2JVI3LWS"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LF 3U/S3E3L3E;R*(&1"M&J3ESNI7F2J^I3O?T. &1"9*M.1^02I[I6 N(+Y;M+E;Q*7&76IW3N	T+LB 3B	E2 WR3PGE7TN-3C3H3E[IE*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J2
N 3A3L6 WA7SKD3U/C"M&J2 J 6=WP7NSK*(&52.WN".61*JBI2 [I*(	B2 GC+LCL7FSA+AL.1B3")*M*IB 3C3A3LF 3U/S3E3L3E;R*(&5"M&J2 N 3A3L6 WA3SWK3LWL+RN"1&)3GG3MGM"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3M:./EJ."3&)/."""*M*IB 3C3A3LZ 3E3H.(R1")*M*IB 7BN=+Y;M+N;E21F.+N;D3
7Y2.WN..N52.;A7DN.+Y;M+N;E*6:33ASN6.	S3M:./EV."4*M*IB 3BJ=2.;A7DN.+Y;M+N;E*7:93ASN6.	S3M:./E^.23F.+N;D3S7Y2.WN..F6"M&J2 & +F" +BB)3C3A3LZ 3AGT/LF("36)2JVI3LWS"M&J2 N 3A3L2 WG7T	SM*M2I;E3D[I"M&J3C3A3LV 3I/N3E3L3E;R*(21"16)2J^I3O?T. &1"9*M.1"0.I7B3S7Y6.GE..
26.KO6.	S3MV./QJ.24>.7RN.+Y;M+E;Q"1&6/*"*=B"+ICN3E
R7ISB7A
N".*M2I[I* :(7NSO*.	B2 GC+LCL7FSA+AL*5&1"M&J+ICF6(	S3M:./EJ."0&)/*""=6"*JBI2 GC+LCL3FE/LV("16)2JVI3LWS"M&J2 N 3A3L2 WG7T	SM*M2I;E3D[I"M&J3C3A3LV 3I/N3E3L3E;R*(21"1&)3;I3I	T3A	L3SWI3R;U3GZ 7UKE6 WA7SKD3U/C"M&J3C3A3LF 3USS3ROUK*M2IGC+LCL7VKE3GWL3IC"M&J3C3A3
F 3U/S3E3L3E;R*(&1.MFJ"9&93C;O3T;IU7E2JVI7N
D3H3IE*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2IWR7TKUN*M2I;ED*MBLBZ

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