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")*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:
+E;Q"7&)7WF7NSC3I;O2-SI7ESN".*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 N 3A3L6 KE7SSE3Z;E*(28"16)*JBI* B 3C3A3LV 3I/N3E3L3E;R2(	K3T7U2(;I+K3I*32)"56)*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"(*,&
"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* B 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*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J2 N 3A3L6 WA7SKD3U/C"M&J2 J 6=WP7N
K*(&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*JBI2 GC+LCL7EOR7E+T+EN.3F,")*M*IB 3C3A3LV 3I/N3E3L7LKE/NF(*,&1"M&J2 ^ 3
?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*JBI2 [I* :(7NSO*.	B2 GC+LCL7FSA+AL.1B1")*M*IB +ICF6(	S3M:./EZ."7&)3[O"M&J* B 2 G
+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 3C3A3LV 3I/N3E3L3E;R*(21"16)*JBI2 GC+LCL7AOU7DWRC7K*JBI. 7B3P;U+KT*5:)+N;E"1*M*IB +I
F*(	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 3C3A3LF 3U/S3E3L3E;R*(&5"M&J2 & +F" 3S7Y2.WN.."52)BID7O*JBI* B 3C3A3LZ 3E3H.(R5")*M*IB 7EOLE*M*IB 2 N 3A3L2 WG7T	SM*M*IB 3ESNI7F*JBI2 ?G+TCO.1&9"M&J3ESNI7
2JNI3A3L2 GF3T3A.(&9")*M.1J02I[I6(	S3MV./QJ."3&)/."*"B 7VKE3B;UD*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL3E;I3K3E7LKE/NF(*,&1"M&J2 ^ 3O?T. &1"9*M2I;E3D[I"M&J+ICF6(	S3MV./QZ."0&)3;ED*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7AOU3K3E7LKE/NF(")*M2I3ES7E*JBI2 GC+LCL3FE/LF("46
*JBI. 7B3S7Y2.WN*.:13ASN6.	S3M:./EV.23F.+N;D3S7Y2.WN..N62.;A7DN.+Y;M+N;E"564.JFI2.;A7DN.+Y;M+N;E*7:93ASN6.	S3M:./E^.23F.+N;D3S7Y2.WN..F6"M&J2 & 3FJ(2)GC+LCL7FSA+AL*1&3"M&J3ESNI7F2J^I3O?T. &1"9*M.1N02I[I6 N(+Y;M+E;Q*5&92IW3LWS2 & 3N& 3FF-3NWW7IWSN7G*JBI2 G
+LCL7GSE3S7Y"M&J2 N 3A3L6 KE7SSE3Z;E*(21"16)2JVI3LWS"M&J2 N 3A3L6 WA3SWK3LWL+RN"16)2JVI3N	DF*M2I?G+TCO.1&9.MFJ"0&43C3A3LN 7OON3T;AT& 3GF3LGL3NWW7IWSN7G2JJI6=WP7NSK*(&52.WN6.CN3U/N/TJ(*,&5"M&J+ICF*(	B2 GC+LCL7FSA+AL.1^4")*M2IGC+LCL7AOU3K3E7LKE/NV(2)BI7TWA"
&J3C3A3LF 3U/S3E3L3E;R*(&4"M&J3W	H+LE3S7Y6.GE*.&7*IK",6"*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L2 ?C7NSS7ASN"M&J2 J 6=WP7NSK*(&52.WN6.CN3U/N/TJ(*,&5"M&J2 & +F" +BB)3C3A3LZ 3AGT/LF(*4&7"M&J2 N 3A3L6 WA3SWK3LWL+RN"56)*JBI2 GC+LCL7AOU3K3E7LKE/NR(")*M2I;E3DW3IWL"M&J+
F3S7Y2.WN..R22)BI*"J:"M&J2 N 3A3L2 WF+HL"56)2JVI3LWS"M&J2 N 3A3L2 WG7T	SM*M2I;E3D[I"M&J3C3A3LV 3RWS3TWZ/NV(*,&1"M&J3C3A3LV 3I/N3E3L3E;R*(21"16)2J^I3O?T. &1"9*M.LB125&I+F" 3S7Y6.GE..N22)BI*"J;2 N 3AWS2-?F7ROT7E+T3U
N"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3RWS3TWZ/NR(*,&1"M&J7EOLE*M*IB +IF3S7Y6.GE..&62)BI3OT7EOR"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I6 N(+Y;M+N;E*2&4*IK":6"*JBI* B 2 N 3A3L2 WF+HL"56)*JBI* B 7EOLE*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 ;E3D[I"M&J* B 2 GC+LCL7EOR7
+T+EN.6F,")*M*IB 2 N 3A3L2 	E3NWK3LWL+RN.1F,")*M*IB 7EOLE*M*IB 2 & 7FN(+Y;M+N;E*6&0"M&J* B * B 3C3A3LZ 3E3H.(R12)BI*"J;2 SO+ECR3ESN"M&J* B 2 3ES7E*JBI* B 2 N 3A3L2 WG7T	SM*M*IB * B 2 GC+LCL7AOU3K3E7LKE/NF(")*M*IB 2 V 3N	DF*M*IB 3ESNI7F2JVI3N	DF*M2I?G+TCO.
&9.MFJ"0&6+ICF6(	S3M:./EZ."0&)3;E3DJ +ECI7COAE*M*IB 3C3A3LZ 3E3H.(N1")*M2I3ES7E*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L6 WA3SWK3LWL+RN"16)2JVI3N	DF*M2I?G+TCO.1&9.MFJ"0&7+ICF6(	S3MV./Q^."7&)3;U3T3I2 J +ECI7RCE7ESA2-OS3HWL3IWF"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A3LV 3I/N
E3L3E;R*(21"16)*JBI2 GC+LCL7AOU7DWRC7K*JBI. 7B3P;U+KT*5:)+N;E"1*M*IB +IF+BB)3C3A3LZ 3AGT/LF(*3&0"M&J2 N 3A3L6 WA3SWK3LWL+RN"56)*JBI2 GC+LCL7AOU3K3E7LKE/NF(2)BI3G7AM7A*JBI2 ?G+TCO.1&9"M&J3ESNI7F2J&I+F" 3S7Y2.WN..N22)BI*"J;"M&J2 N 3A3L2 WF+HL*1&4"M&J2 J 6=	
3M:./EF.2.;A7DN.+Y;M+N;E*5:33ASN6.	S3M:./EZ.23F.+N;D3S7Y2.WN..R5"M&J2 J *=;B3ASN6.	S3M:./E^.29F.+N;D3S7Y2.WN..N72.;A7DN.+Y;M+N;E"661*JBI2 [I2 J(2)N 3A3L2 GF3T3A.(N1")*M2I3ES7E*JBI2 GC+LCL7GSE3S7Y"M&J3ESNI7F2JNI3A3L2 	E3NWK3LWL+RN.1F,")*M2I?G+TCO.1&9.MFJ"0
87BN=+Y;M+E;Q*2:0+O;R3S7Y6.GE..R26.KO6.	S3MV./QF.26BI."6:2"& 3NV 3R	G3BGT+N;W"M&J+ICF2(:.+O;T+BB)3C3A3LZ 3AGT/LV("16)2J&I+F" 3S7Y2.WN..B22)BI."6:""*M*IB 3C3A3LZ 3E3H.(F5")*M2I3ES7E*JBI2 GC+LCL7GSE3S7Y"M&J3ESNI7F2JNI3A3L2 	E3NWK3LWL+RN.1F,2)BI3I	N3TGI7LOI7
KE3U
N6 WF+ECR7AOU7DWRC7K2JNI3A3L6 WA7SKD3U/C"M&J3C3A7LZ 3E
R3L	EC7H2JNI3A3L6 WA3SWK3LWL+RN"16).J&129NI7OSN7IWNE*M2I;E3DW3IWL"M&J3C3A3LF 3U/S3E3L3E;R*(&1"M&J7RSE3U;R"M&J3ESN"M2JBZ

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