File GETN2.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 	D3NZ,+I3N7NKE3R&,7EKR3S2,3IWN2,3L2,OI3C&,+C3HL7C2JNI3O7M+OCN7I	S3M2,+E3N3I?W+R3D3I?P7ISN2,SI2,GIL*M2I?C3M?M3N: 3AWM6,KI3Z	E3G2,3Z	E3G6,+A3X+I3L7ISSA7B2JNI3O7M+O
N7MA3E6,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.MFJ20NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J^I3O?T" 65.JV12I[I2(OI/HF+.5R0.)B4.,B2.,B4.MJJ20NI7OSN7IWNE*M3S*I+MCS7
SEC7H2J&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&07
KO7MSA.(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.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+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&=C7C
J.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/LJ("16).JF126&I3F&(+C/H.1J1.0F)*420.1F2.,R1"0*M.1F22I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2
[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	T3NWU6MNJ2I7J3S^ 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.JV125&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")*M2IWR7TKUN*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.JN220NI7O
N7IWNE*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	T3NWU6MNJ2I7J3S^ 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&
3S7Y.=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.JF321&I3S7Y.=V2"M&J7GSO/OV "060.JF322&I3S7Y.=F2"M&J7RSE3U;R.MNJ"2&07I	S3M&=3NWD/XF-"2*M
I?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,"160.JF420NI3A3L2 GF3T3A. ^(")*M.4V12I[I2(OI/HF+.8"8.)F4.8R,*126.4"1.MRJ"1&63C;O3T;IU
E"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=.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