File GETN1.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file
6IWS3B?R3U	T+NCE7GSE3S7Y"M&J3C7O3M;O2 WN+R3R3L;I3E2,3L&,+C3C3IC2,OL6,OI+Y3M3L;E6,
I3OSR6,CI3O;I3T&,3D&,A7L2JNI3O7M+OCN3N7A3E&,3RWZ+I3G3LWZ+I3G7MA2,3I6,OI3TKA"M&J3C7O3M;O2 GM+X3E3M;I3E.,7MA2,7N+A3X7IS2,3L3E
N6,OI3L;E3G&,3SGMX*M2I	D3M;E3S?I3N& 7WKO/DJ(.9F,*02)3I?P7ISN.(Z2*,&22,SI.(B12)2,+EN*2&9"M&J3D7I7EON3I;O2 	L+NE*8&02,GN+ME.2B0.,B12)&,3RWZ+IG.2B02)2,3Z	E/GJ(*0&0"M&J3D7I7EON3I;O6 OI3TKA.(B6"06)2J&I/BB=.MVJ2I[I2(OI/HJ+.0Z1.)V1.,B1.,V1.MFJ20NI7OSN7IWNE*M3S*I
MCS7GSEC7H2J^I3O?T" 65.JV12I[I2(OI/HF+.5R0.)B4.,B2.,B4.MJJ20NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1^3.6J).5N,.0J,"5*M"2&5/I7B"1*M2IOI3C&=+C7C"1*M2I?G+TCO"5*M"3&03IC7VKO2=OIH*M3S*I+MCS7GSEC7H2J&I3F&(7C[H+O/R.1^3.6N).0N,.5N,"0*M"3&5+IF3IC.+R1*4&0*320*327
360.J^32I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I?G+TCO"5*M"4&03W	R+TE.4Z,*5&03IOC.MZJ"5&07FKO7MSA.(SI*,B	"	6)2J&I3F&(/BF-.)N4.,J4.,N4.MRJ22&I/C7H.-V1"064.JN42I[I2(OI/H&-.6F)*020*425"465.JV42I[I2(OI/HF-.6Z9.)B5.,B5.,B1"0*M"5&0/I7L"0*M"5&2+IF3I3A2-3I.)R5.,R5.,N5.MV
23&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+I21"160.JF32ISI*(	I.=J-.0Z1"M&J+J"=+ID*16)*3
2./R6"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"+7I6JJI7EWTR7N.JB62I?C3N	T3NWU"M&J7I	S/MF="M&J7RSE3U;R.MFJ"0
0+IF3IC.+&9.2F)*820.1V0.,B1"5*M.1V02I[I2(OI/HR+*1&6.1Z0.,B1.6F,"860.JB126.I3A&=C7C2J.I"=602J&I3S7Y"=62.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/
J("16).JF126&I3F&(+C/H.1J1.0F)*420.1F2.,R1"0*M.1F22I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+.1B2.)J1.4F,*223.1R2.MFJ"2&33IOC2=OI/CF-"M&J7GSO/OF "760.JJ124&I3S7Y"=63.JJ127&I3F&(+C/H.9J9.)R1.0F,*228.1"2.MFJ"2&8+IF3IC.+F4.6F)*320.1B3.,R1"0*M.1B32I?C3N	T3NWU
MNJ2I7J3S^ 3EOTH*M2I?G+TCO.1^2.MFJ"4&0+IF3IC.-V3.2F)*720.1F4.,^1"0*M.1F46IOI/Y7M"3*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1F3.2F)*520.1J4.,V1"0*M.1J42I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I?G+TCO.1V5.MFJ"5&0+IF3IC.+F1*8&4.1V5.,V1.1F,"565.JV121NI7OSN7IWNE*M3S*I+MCS7GSEC7H.
V125&I3F&(+C/H.9J9.)^1.0F,*526.1Z5.MFJ"5&6+IF3IC.+F4.6F)*527.1^5.,^1"0*M.1^52I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I?G+TCO.1V5.MFJ"7&0/K7E3IOC"-616J^I7RSI/ER(.,V625&)3S7Y.MZJ"5&57FKO7MSA.([I*,B	"	6)2J&I/S7X"0*M6IKW3IWT*(24.1N0*1")3L;I3E&(2)&,2=GK2,WK")*M2IWR7TKU
*M.1B82I;I7DE*="-3IC.+J3.)Z/"4*M2I[I2(;I7DE.+"2.)"1.2F,*824.1Z8.MFJ"8&2+IF3ISN+E/X*3&0.1B9.,"1.8F,"960.J"128&I3S7Y.=&1"M&J7GSO/OV "060.J"124&I3S7Y.="1"M&J7GSO/OV "060.J&120NI3A3L2 GF3T3A*(&0"M&J7GSO/OV "060.J"126&I3F&(3NWD/XF-.6F)*925.2B8.,B3"0*M.1V92I[I2
;I7DE.)&1.0F,*920.2B2.MJJ"2&07GSO+O" .2B3.,R2.0J,*520.2B6.,^2*02)3ISNE7X.JN220NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1B6.)N2.2J,*321.2J3.MJJ"3&17I	S/MF="5*M2I?G+TCO.5B0.MJJ"3&27I	S/MF="4*M2IWR7TKUN*M.2B46IOI/Y7M"1662J^I3O?T. B5"0*M.2B52I?C3N	T3NWU6MNJ2I
J3S^ 3EOTH*M2I[I2(OI/HF+*6&0.2J5.,V2.1J,"562.JV221&I3S7Y.=N1"M&J7GSO/OV "060.JV222&I3F&(+C/H*9&6.2V5.,V2.3J,"565.JV223&I3S7Y.=^1"M&J7GSO/OV "060.JV225&I3S7Y.=J1"M&J7RSE3U;R.MJJ"6&07I	S/MJ="3*M2I?G+TCO.5B0.MJJ"7&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+Z1.0J
*723.2F7.,^2"3*M.2F76IOI/Y7M"2602J^I3O?T. B5"0*M.2N76IOI/Y7M"2646JJI7EWTR7N.J"220&I3S7Y.=J2"M&J7GSO/OV "060.JB320&I3F&(3NWD/XJ-.9N)*025.4B0.,&1"0*M.3V02I[I2(;I7DE.-^1.)&1.0N,*120.3B2.MNJ"1&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+F1*2&0.3J1.,F3.1N,"162.JF32
&I3S7Y.=V2"M&J7GSO/OV "060.JF322&I3S7Y.=F2"M&J7RSE3U;R.MNJ"2&07I	S3M&=3NWD/XF-"2*M2I?G+TCO.5B0.MRJ"0&0/KB="M&J/I7B"1*M6IOI/Y7M"5*M3S*I+MCS7GSEC7H.JB425.I*=/K"1*M2I[I*(7K3LWL+N	G.4^0.,B4.7R,"066.JB426NI3A3L2 GF3T3A. "(")*M.4^02I[I*(7K3I7S+A	X.4V1.,F4.5R,"1
0.JF420NI3A3L2 GF3T3A. ^(")*M.4V12I[I2(OI/HF+.8"8.)F4.8R,*126.4"1.MRJ"1&63C;O3T;IU7E"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+
F3I3S3E
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=.MRJ"5&03W	R+TE.4Z,*5&57I	SM*M6IOI/XB="M&J+IF7I	S/MV-.)R4.5R,*422.4V4.MRJ"4&23W	R+TE.4Z,*5&53I3S3E
N.MRJ"4&53W	R+TE.4F,.0F32)&(3SGT3B&(2)&,*=213I3S3E
N")*M2IWR7TKUN*M.5B02I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2IWR7TKUN*M3SWG3TC.,BI"M&J+IF3IOC2-3L.)F1*020.1J0.0F,.0B2.MFJ.0B22I[I2(	L+NE+L	L.+F1*2&0.1N0.0F,.0V2.,B1"360.JB1"2&57I	S/MJ="1*M2IWR7TKUN*M.1N020&I/C7C"0*M2I3L.=B8"M&J/L7C+L/C"1*M6IKW3IWT*(24.1V1202)C*M.1
120ZI3O7R+AT.	F-* >	+I24*	^ ")*M2IWR+AD.4F,.0F32)2(3IWN*(	I.,7I.1","06).JB1"3&17FKO7MSA.(B8+A&1.MFJ.0&42I[I2(	L+NE+L	L.+B2*1&6.1B2.0F,.0B5.,J1"060.JB1"5&0/L7L+L7L"1*M2I?G+TCO.1R0"9*M.1B2202I3L2=/LF+"M&J3L;I3E2(/L6).-B2"166.JF1"0&03IOC2=OI/CF+"M&J3IC2=	L+N
3IOC")*M3S*I+MCP3I^ 3EOTH*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