File SCONST.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE3S?C7NSS"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*M2I[I6(	S3MV./QZ."5&)*I
3N3I"	*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL3E;I3K3E7LKE/NB(*,&52IBI7TWA"M&J2 N 3A3L2 	E3NWK3LWL+RN.0R,")&I3T3EGT"M&J6 J 7EWTR7N2JVI3N	DF*M2I[I6(	S/MV>2)GC+LCL7FSA+AL.1J82)BI+NCO3C;OS7T2J&I6=+N3E
IE7R2J^I3O?T. F(*021.1J0.,B1.3F,*024.1V0*)B,3S7Y.MFJ"0&13I/N3I&=3N	K3T7U2(SI7ESN")*M2I[I2 &(3N	K6.GE*.&02 GC+LCL7FSA+AL.1R0")*M.I7B7KSI+UM3I/N/IJ,2)V./QJ."M&J+ICF2(:.+O;T+BB)3C3A3LZ 3AGT/LF(*0&3"M&J3C3A3LV 3I/N3E3L3E;R2(	K3T7U2(;I+K3I*32)"5&)3GTU*M2IGC+LC
3E;I3K3E7LKE3N.(7IWT3M&(3N	K*,&4*,&46IS7HSEA*M2IGC+LCL7GSE3S7Y"M&J7RSE3U;R.MFJ"0&23I&="-61.JF122JI*=;I+N;E"0*M2I[I2 J(")*M*IB 3B:=3IWD3K&(*,&12.WN*.:2+O;R7ISC+AB3NSI+EK/IJ,*):)+N;E7IWNM*M*IB +ICF*(	B"M&J* B . 7I/IF-"M&J* B 2 ?G+TCO.1J1"M&J2 V 3N	DF*M2I;E3
[I2MNJ6$^I7RSI/EF(*,&1I*M/CF$2I?F3RGM+T^(3NSI+E7K3ISN+ECX3B	E6 WF+NCD*=^ .,[I")*MC&$3C3A3L: 7TOET*M2I[I2 &(6.GE*.&0"M&J2 & 6=+N3E
IE7R*JBI2 	N3D/E6(+N3E
I+E3R.16)"2*M*IB 3NSI+EK3NWZ3IWG/RJ,2)&=C60*JBI2 OI3TKA2(OI.06)7IWNM*M*IB /ICC2=OI.0F+"M&J2 : 3Z	E7GKE6=+N3E
I+E/R"1*M*IB +IF/ICC.>B220N)3A3L2 GF3T3A.(J5"4&)3OI7MA"M&J2 & 3F:(3Z	E7GKE.>B120N)3A3L2 GF3T3A.(J5"1&)37NA7X2JVI3N	DF*M2I?G+TCO.1&9.MFJ"0&37RSC+AB/RCC6)J=3N7U"M&J/RCC2=OR.0F+"M&J+ICF2(OR.0V>20N)3A3L2 GF3T3A.(J5"5&)6IK3CGMX*M2I	N3D/E6(+N3E
I+E3R.16)"3*M2I	N3D/E6(+N3E
I+E3R.26)/RCC"-612J:I3Z	E7GKE6=+N3E
I+E/R"1*M2I[I2 :(3Z	E7GKE.>B1*0B)3C3A3LZ 3AGT/LV(*2&12I;7MA"M&J7GSO/OF "969.JB164NI3CWZ3IWG7RN=+CZ/SCC")*M2IOS3TKA2(OS3Z	E7GKE2)N=H*M2I	N3D/E6(+N3E
I+E3R.16)"4*M2I	N3D/E6(+N3E
I+E3R.26)/SCC"M&J3NWZ3IWG3R:=3Z	E7GKE"+612J&I+F" 3NWZ3IWG/RF>*0&02 GC+LCL7FSA+AL.5F22)BI3NGMX*M2IOS60N=+C.0"1*M2I[I6 N(/C:0*5&02 GC+LCL7FSA+AL.5^22)BI7S+C7MA"M&J7S+C2(OS.06)7S+C3E
I+E/R"1*M2I[I6 N(3CWZ3IWG/RF>*9&92 GC+LCL7FSA+AL.5Z22)BI3S7CA7X2J^I3O?T. &1"9*M.1V02I[I2 :(3Z	E7GKE.>B1*0B)3C3A3LZ 3AGT/LV(*2&12I;7MA"M&J+ICF2(OS.0R>*9B)3C3A3LZ 3AGT/LV(*2&76IO3C7ZA7X2JJI2=OS7ZN(+C&02+3S3E
N.>B220BI3S7CA7X2J&I+F" +BB)3C3A3LZ 3AGT/LV(*2&6"M&J7S+C3E
I/E7R7S+C2(OS"06)6JNI/C60/SCC"+616JNI+CZ/SCC6)N=3CWZ3IWG7RN+3L;EG*M2IOS3Z	E7GKE2=OS3Z	E7GKE"-612JRI/OV *5B5/JF=2,3S3E
N.MVJ"5&57SSC+AB7S+C3E
I+E/R/J6)7SKT3I
N*(	J"M&J3NSI+EK3NWZ3IWG/RF,6)R="0*M2I	N3D/E6(+N3E
I+E3R.26)/SCC"-612J:I3Z	E7GKE6=+N3E
I+E/R"1*M6I+T3E
I/E7R+TZ+T&0"M&J+ICF.(CT.>&42)N 3A3L2 GF3T3A.(J5"3&)7+T7MA"M&J7BR=3Z	E7GKE.+:5.2B06IS7MA"M&J+ICF*(	B2 GC+LCL7FSA+AL.5J2")*M.ICT.=CT"+616JRI7ZR(.06)3TWZ3IWG/RV+"M&J3TGT7BR(3Z	E7GKE.)V=2IG3RGRY*M6IST+AB3TWZ3IWG/RF+6)N=3L;EG*M6IST+AB3TWZ3IWG/RJ+.)R=2IO7HKA"M
J3TGT7BR(3Z	E7GKE*+&3"=626JRI3TKA6(+T3E
I+E/R.46)"1*M.1&92IGC+LCL3E;I3K3E7LKE3N:(3IWD3K&(*,&1*,&56ISA7U2JNI3A3L2 	E3NWK3LWL+RN3NSI+EK/IJ,.)R,2)BI3TWHT7A2JNI3A3L2 WG7T	SM*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