File G0TEST.FT (FORTRAN source file)

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

6IWS3B?R3U	T+NCE7GSE3S7Y2MNJ6 B 3AOS+A7L7SB 7AOR+ECR2 WV3R	S+OCN3V7O. B2..J1..B8"M&J3C7O3M;O2 WN+R3R7IKE+R3S+L3C3IOC2,	D3NZ,+I3N3IC2,3L2,	LN7E2JNI3O7M+OCN7I	S3M2,+E3N3I?W+R3D3I?P7ISN2,SI2,GIL*M2I?C3M?M3N: 3AWM6,KI3Z	E3G2,3Z	E3G6,+A3X+I3L7ISSA7B2JNI3O7M+OC
7MA3E6,3IWN2,7K+A3X3NGM3X&,+S3X3LWL+N3G3I3S3E
N6,OI7MA"M&J3D7I7EON3I;O2 	L+NE*8&06,+L3E
I.(B2*02)7I+R3E
I.(B2*02)3N7A/EJ(*020*1&0"M&J3D7I7EON3I;O6 
I3OSR.(&2.,B12)&,3P	O+NT*226*22)+ID*1&02,WL/NJ("96)2JRI3IWM3N	S+OCN7IKE+RS*621*32)7ISS+AB.6B02)&,3Z	E/LR("06)2J&I/BB=.MVJ2I[I2(OI/HJ+.0Z1.)V1.,B1.,V1*IC3BGL/N?K.MFJ20NI7OSN7IWNE*M3S*I+MCS7GSEC	H+B +CCH*=J " 6"2J^I3O?T" 65.JV12I[I2(OI/HF+.5R0.)B4.,B2.,B4.M
J20NI7OSN7IWN3EBI* J "(6""J	S7JOM2 WG3TC"M&J+IF3IC.+N1*7&6*225*320"2&53N +HJ=.*>".MJJ25&I/BF="M&J3IOC2=OI/CF-"M&J7GSO/OV .MNJ20&I7C[H/O7R3IC2I/3O7M7ESN3AKR3E	GN7N"J	S7JOM2 WG3TC"M&J+IF3IC7VKO.+N1*7&6*320*325"360.JV32I[I2(OI/HF+.4B4.)B3.,^3.,B3.MNJ27NI7OSN
IWN3EBI2 ?K3MWM3NGT3R;ED7E"J	S7JOM2 WG3TC"M&J7GSO/OV .MRJ60^I7RSI/ER(.,V620&)C7C.JV620ZI3O7R+AT+A&2"M&J+IF+I7B.1R).3R,.2R,"3*M"4&23IC.=F-.5R0*IC*"J(.MRJ23&I3F&(+C7H*9&6.1B0.,V4.,V4.MRJ25&I3F&(+C7H.1&6.6V).0V,.0F,"060.JB52I3I"=&03J 3UC3SGT+B3E2 J 3E	G+NCN3
WD3N	T3FWIR*M"5&2+IF3I3A2-3I.)R5.,R5.,N5.MVJ23&I3L&=/LF+"M&J+ID+I	L2=OIH*M"5&43C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF*9663IC.)V5.,V5.,"5.MVJ25&I3F&(+C7H.1&6.6V).2V,.2V,"8*M"5&8+IF3IC.+&9.2R).7V,.9V,"9*M"5&9+IF3IC.+F4.6V).2V,.2R,"7*M"4&7/I61+I/L"1*M2I?D. F3. 7I+
21"160.JF32ISI*(	I.=J-.0Z12I	/DF(2)J +ICS+ID*1&02 ;E3TGH7ESL2 SI7ESN3I	FE7R2J*I2=&(/DF(.)N-*2>)"6&47V 3EWB7RKP3U[E3U
N2,> 3B& 3D;E3T[I7IKE2=. 7E
Y3OSR"M&J3M&=3P	O+NT/JF,")*M.I7N3I?P7ISN*(3J"26)2JRI/OZ 20& *=3MN*M2I[I2(3I2-WL3N&(.)Z).0&,.8Z,"0*M"9&8+DCO*7B0/I61.2F,"0*M2I[I2(SI.(GI2)&-7WKO3D&(.,GI.)Z).0^,.0Z,"0*M"7&03C;O3T;IU7E2J&I3S7Y.=B5"+	I3& 3D;E3T[I7IKE6 OI3T. 7E
Y3OSR"M&J7RSE3U;R.MZJ20NI7OSN7IWNE*M6IOI/Y7M21BI2 SI7ESN3I	F+ECR7ISS2 WK+ICN7K	E7WKOD*M2IWR7TKUN*M.1B02I[I2(OI/H&+*9&2.1B8.,B1.5F,"0&53. 3E;I6 WB7COH3TKAE*M.1V02I[I2(OI/HR+*1&6.1Z0.,B1.6F,"860.JB126.I3A&=C	C7* 3EOI3H;E6 OI3TV 3IWN2 	Z3FWFR*M.I7K"0*M6IOI/Y
M22BI2 ;I3T
E3E/R7OON3T;AT7E.JB128.I*=/K"1*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.9J9.)F1.5F,*120.1B1.MFJ"1&0+IF3IC.+F4.6F)*028.1"0.,F1"5*M.1V12I[I*(7K3KGM/XF)*126.1Z1.,J1"0*M.1B22IGC+LCL3FE/LJ("1&)7* 7UZ 3I3E7E* 3I[F3E;R2 ;I2 ;I3T
E3E/R7OON3T;AT7E.JF126&I3F&(+C/H.1J1.0F)*420.1F2.,R1"0*M.1F22I?C3N	T3NWU*IC*"J.6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+.1B2.)J1.4F,*223.1R2.MFJ"2&33IOC2=OI/CF-*IC3ESN3ER +ECR3Z[I7FKE3NWK3TWT2,& 3NWT7GKE3K;O+S;T"M&J7GSO/OF "760.JJ124&I3S7Y"=&37J 3E3A3K;O3SGT3NWT.MF
"2&7+IF3IC.+&9.2F)*420.1"2.,J128BI2 GN3C/H3O7M3AWTI7L.JJ128&I3F&(+C/H.4Z1.)N1.0F,*320.1B4.MFJ"3&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J7GSO/OF "267.JR120&I3F&(+C7H.3J5.)^1.0F,*421.1B7*IC3NOA3H?K3MGM3T	E3LJ 3E;E7DSE*,J /E>".MFJ"4&17I	S/MN=6MNJ2I7J3S^ 3EOTH*M2I[I2(
I/HF+.3J1.)V1.0F,*422.1B5.MFJ"4&23C;O3T;IU	E+J "+6""J	S7JOM2 WG3TC"M&J7GSO/OF "565.JV120&I3F&(+C/H.1"1.4F)*525.1F5.,V1"5*M.1F52I?C3N	T3NWU*IC*"J-6MNJ2I7J3S^ 3EOTH*M.1V52I[I2(OI/H&+*9&2.1B7.,V1.6F,"5&63V 3X?P3N;ET*M.1Z52I[I2(OI/HR+*1&6.1^5.,V1.7F,"760.JV12
NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J^I3O?T. V1"5*M.1B72IWK2=OI/CF-"M&J3W	R+TE.4Z,*5&57I	S3MBI6 WA3SGG+BCE7ISN3EWG+RB-7B
Z6.J 3E3A3K;O3SGT3NWT.MZJ"5&57FKO7MSA.(KA")*M6IOI/XB="M&J3W	R+TE.4F,.0F32)2(3IWN*(	I.,7I+K3A+K	E"M&J7RSE3U;R.MFJ"8&03ISN/E7X2-&(+C/H*3&2./R6*IC3S;O3S	T7GOE6 	S3M?B3LF 7UOS+ECR3IWD+N3T2 ;I+T6."M&J+IF3ISN+E/X*2&8.1J8.,"1.4F,"8&63> 7DKE2 WR3A/L7OON+T2.6 V 3M
C3DWI3R;UG6 .J"122&I3F&(3NWD/XN+.0F)*920.1"8.,&1"0*M.1"86IOI/Y7M"1&9+J ]6"2J^I3O?T. B5"0*M.1R86IOI/Y7M"1&8+J [6"2J^I3O?T. B5"0*M.1B92IGC+LCL7FSA+AL"0&)7V 7NWZ3LWA3S	S7GOE2 WZ3ICE7N2J^I3O?T. B5"0*M.1Z82I[I2(;I7DE.-Z1.)&1.5J,*820.3B0.MFJ"9&5+IF3ISN+E	X.1B9.
&1.0J,"260.JJ220^I3O?T. J(*320.2B4.,V2.0J,*620.2B72)&,3NWDX*M.2B32I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+*6&0.2J3.,N2.1J,"362.JN221&I3S7Y.=V1*IC."6>""*M2I?G+TCO.5B0.MJJ"3&27I	S/MF=24BI. :"""*M2IWR7TKUN*M.2B46IOI/Y7M"1&6+J "=6"2J^I3O?T. B5"0*M.2B52I?C3N
T3NWU6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+*6&0.2J5.,V2.1J,"562.JV221&I3S7Y.=N1*IC."6<""*M2I?G+TCO.5B0.MJJ"5&2+IF3IC.+Z9.)V2.5J,*523.2V5.MJJ"5&37I	S/MF=27BI. 2"*>B"* ;D+HB.7NSO6 GE3U3A"M&J7GSO/OV "060.JV225&I3S7Y.=J1*IC*"J<"M&J7RSE3U;R.MJJ"6&07I	S/MJ=23BI. ."""*
2I?G+TCO.5B0.MJJ"7&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+Z1.0J)*723.2F7.,^2"3*M.2F76IOI/Y7M"2&0+J *:J="M&J7GSO/OV "060.J^223&I3S7Y.=R2*IC*"J:"M&J7RSE3U;R.MJJ"8&07I	S/MJ=22BI* >"""*M2I?G+TCO.5B0.MNJ"0&0+IF3ISN+E7X*2&9.3V0.,B4.0F,"960.JB325&I3F&(3NWD/XF-.7
)*920.3B1.,J3"0*M.3B12I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+.1B2.)F3.2N,*121.3J1.MNJ"1&17I	S/MJ=25BI* :"*.B"6 CUT7O2J^I3O?T. B5"0*M.3J16IOI/Y7M"2&1+J ".6"6JJI7EWTR7N.JJ320&I3S7Y2=;I7DE.-J1"M&J7GSO/OV "060.JB420.I"=602J&I/BF="M&J7I	S/MV=*IC7SKT3I
N2-> 7DKE2 C3AGR3CWT3R.-7OON3T;AT7E"J	S7JOM2 WG3TC.MRJ"0&53K.="+612J&I3F.(2-3L3E
N.)B4.7R,*027.4Z0.MRJ"0&63C3A3LZ 3AGT+L" "8&)7* 3EOI3H;E7KSE+TCE+ZCU3L;AG*M.4^02I[I*(7K3I7S+A	X.4V1.,F4.5R,"160.JF420NI3A3L2 GF3T3A. ^(")*M.4V12I[I2(OI/HF+.8"8.)F4.8R,*126.4"1"M2J.4Z12I?C3N	T3NWU*IC*"J " 6""J	S7JOM2 WG3TC"M&J+IF3IC.+"1*8&8.4&1.,F4.8R,"169
JF428&I3SGT3B.(2)&=C7H"J	S7JOM2 WG3TC"M&J7GSO/OR "260.JF429&I/BB=.MRJ"2&0+IF+I	B.4V0.,J4.5R,"065.JJ425&I3SWL/N7G/KF-"M&J+IF3I3S3E
N.)R4.0R,*320.4B4.MRJ"3&03C3A3LZ 3E3H. N(*6&5"M&J7I	S/MZ="5*M2IWR7TKUN*M.4B42I[I6(OI3L;E/GF-.)V4.0R,*421.4B5.MRJ"4&17I	S/MR=*IC3CGH3ROA7TKE2-. 7OON3T;AT7E.JV460^I7RSI/ER(.,V625&)3S7Y"M&J7IS"=602J&I3F&(3S7Y*-&5.4V4.,R4.2R,"465.JR462^I7RSI/ER(.,V625&)3SWLN7
.JR465^I7RSI/ER(.,B1*3&16(OI3TKA*(	I.,7I21&,3SWL+N	G"M&J7RSE3U;R.MVJ"0&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J7RSE3U;R6MNJ7GSE+C3H"I602J&I3F&(+C7C+L	L.1B1.0F,.0B2.,B1"260.JB1"2&0+IF3L;I3E2(+L.).1J1.0F).0B3.,B1*225.1N0"0*M.1J025&I3S7Y.=F2"M&J7RSE3U;R.MFJ.0B32IOI/C
="M&J/L7L"8&032 3IWN2 WL7NSGH*M2IOL2=OL"+&132 3IWN2 ?C7USNE7R6J^I7RSI/ER(.,F1*5&03M;I212,C*M.1V120ZI3O7R+AT+A&2"M&J3RGE/DR(.,B1*3&12(	L+NE+I2)/IF=.,B8")*M.1N021ZI3O7R+AT28F0"16).JB1"4&9+IF3L;I3E2(+L.).2F0.6F).2B0.,B1*520.1B2"0*M.1V0202I3L2=/LF-"M&J+ICF2(3
6.GE*.&02 ?G+TCO.1B2"0*M2I?G+TCO.1R0"9*M.1B2202I3L2=/LF+"M&J3L;I3E2(/L6).-B2"166.JF1"0&03IOC2=OI/CF+"M&J3IC2=	L+NE3IOC")*M3S*I+MCP3I^ 3EOTH*M2I;ED*M"LBZ"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"
"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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