File GETSYM.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+I24*	^ ")*M2I[I2(KI*-&1*423*422"463.JJ42IOI+H6=.1B524BI* """"*M"4&3+IF3IC.-Z9.)B1.0R,.5R,"5*M"4&5+IF3IC.-Z1*9&6*520*520.1B0.MVJ20&I/LB=*IC3BOU7HSS3AWB*,B 3B
E3I;N2 SI7ESN3I	FE7R.JJ52I[I2(GI3L&-/LV).4V,.4V,"3*M"5&3/I7L+I/L"1*M2ISI2(3I2)&=C7H.JR52I?C3N	T3NWU6MNJ2I7J3S^ 3EOTH*M2I[I.(Z92-OI/HV).5V,.5V,"8*M"5&5+IF3IC.-Z1*9&6*522*522"568.J"52I[I2(OI/H&+*9&2*427*529"569.J&52I[I2(OI/HR+*1&6*522*522"467.J^4.IGI2=3I"+6
2JRI/ON 21& .=GI.,B1.MNJ21&I3D&(*)6=.2F026BI+ID*1B)7BOI2 SI.(B12)V 3NT3A3E3T& 3D;E3T[I7IKE"M&J+J"=+ID*16)*3&2./R6*IC3UKE7ECR3RWU3F;U+GB,+OCB3IWD3N	T3FWI+RB=7K	E7WKOD*M.I7M3I?P7ISN*(3J"16)2J:I6=CI3O;I3T*(*,&2"M&J+DCO*6B03I6=",7N2J&I3F&(3L2-+EN+I&)*620*928"
60.J"92I?D. B7. GI*=22"1602J&I3F&(3D&(*16)3I?W+RD3I&,*1&)*620*720"660.JB72I?C3N	T3NWU"M&J7I	S/MV=20&+*IC3IWD3N	T3FWI3R& +SCT7K	E7WKOD*M2IWR7TKUN*M"6&03C;O3T;IU7E2J&I3S7Y"=&13& 3D;E3T[I7IKE6 OI3T. 3E;I2 WK3Y?WR7D6JJI7EWTR7N.JB120&I3F&(+C/H.9J9.)"1.0F,*025.
V0*IC3K	E3NJ 3UC3SGTB7E.JB125&I3F&(+C/H.4Z1.)B1.6F,*026.1B8.MFJ"0&6/K7A3IOC*IC3Z	E3CWH3N& +SCT3E;I7E* 3I[FE7R2J.I"=602J&I3S7Y"=&23& 3NWT7GKE3K;O3SGT3NWT.MFJ"0&83K.="+61"J	S7JOM2 WG3TC"M&J+IF3IC.+&9.2F)*125.1B1.,F1"0*M.1B12I[I2(OI/HR+*1&6.1"0.,B1.8F,"165.J
125&I3F.(2-7K+A	X.1Z1.,F1.6F,"260.JJ120NI3A3L2 WF+HL*2&1*IC+ZCU3VWI+LCE3Z[I7FKE3N& 3N& 3NWT7GKE3K;O3SGT3NWT.MFJ"1&6+IF3IC.+F1*2&0.1B4.,J1.1F,"460.JJ121NI7OSN7IWN3EBI* :"""*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1J1.0F)*224.1N2.,J1"4*M.1N22IOI3C&=+C7C21BI2 ;E+DCE7DK
2 	Z3FWF3R/N7EST+EB,7ISN3EWG3R?K7NSS".*M2I?G+TCO.1B7.MFJ"2&47I	S/MN=*IC3RGE3L?K7NSS7ASNE*M.1^22I[I2(OI/H&+*9&2.1B4.,J1.8F,"2&83: 3AC3K7O7MSA3E3I.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.,^120BI2 GN3C/H3O7M3AWT+ICL3BWE3NWD+TB,*"KE"?*M.1F46IOI/Y7M"3*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1F3.2F)*520.1J4.,V1"0*M.1J42I?C3N	T3NWU*IC*"J+6MNJ2I7J3S^ 3EOTH*M2I?G+TCO.1V5.MFJ"5&0+IF3IC.+F1*8&4.1V5.,V1.1F,"565.JV121NI7OSN7IWN3EBI* 6"""*M3S*I+MCS7GSEC7H.J
125&I3F&(+C/H.9J9.)^1.0F,*526.1Z5*IC7ECX3OWNN7T.JV126&I3F&(+C/H.4Z1.)V1.7F,*527.1B7.MFJ"5&73C;O3T;IU7E"J	S7JOM2 WG3TC"M&J7GSO/OF "565.J^120.I3E&=+C7C"1*M6IKW3IWT*(24.6V56)OIY	M3F 3U
S3AWB2 ;I3T
E+E7R6 +B+WB.3RGE3L?K7NSS7ASNE*M.6V52I?F3RGM3T&(*6^,* &	"M&J7IS"=606J^I7RSI/ER(.,B1*3&12(	L+NE+I2)3I.=3A.,E6)6JJI7EWTR7N.J"120&I3NWD+X6=2(OI/HN+*2>)"6&47N 7OON3T
I+ECS3S7Y3B3O6 WA3SWS3R& 3D;E+TB,7ISN".6-2J&I3F&(3NWD/XJ+.8F)*822.1R8.,"126BI2 SO+ECR3RGE3L?K7NSS*.B,2 7U3CSO7IKE3U
N" *M.1J82I[I2(;I7DE.+B3.)&1.0F,*828.1B9.MFJ"8&87I	S/MF=29BI6 6"""*M2I?G+TCO.5B0.MFJ"8&47I	S/MF=28BI6 ."""*M2I?G+TCO.5B0.MFJ"9&03C3A3LZ 3AGT/LB(2)BI2 ;U3Z3U7AOE3S
I+ECS3Z	E3CWHN*M2I?G+TCO.5B0.MFJ"8&6+IF3ISN+E7X*1&6.1V9.,"2.0N,"060.J&125&I3F&(3NWD/XF)*920.1B9.,J2"0*M.2B22I?G+TCO.(N2.0J,*420.2B5.,Z2.0J,*7&02,;I7DE.MJJ"3&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+Z1.0J)*322.2F3.,N2"2*M.2F36IOI/Y7M"1&5+J *>J="M&J7GSO/OV "0
0.JN222&I3S7Y.=R1*IC*"J>"M&J7RSE3U;R.MJJ"4&07I	S/MF=26BI. 6"""*M2I?G+TCO.5B0.MJJ"5&03C;O3T;IU7E"J	S7JOM2 WG3TC"M&J+IF3IC.+Z1.0J)*522.2F5.,V2"2*M.2F56IOI/Y7M"1&3+J *<J="M&J7GSO/OV "060.JV222&I3F&(+C/H*9&6.2V5.,V2.3J,"565.JV223&I3S7Y.=^1*IC.":<*"B 3D".2.: +
CT7EWQA7L2J^I3O?T. B5"0*M.2V56IOI/Y7M"1&2+J "<6"6JJI7EWTR7N.JZ220&I3S7Y.=N2*IC*"J;"M&J7GSO/OV "060.J^220NI7OSN7IWNE*M3S*I+MCS7GSEC7H2J&I3F&(+C/H.1B6.)^2.3J,*721.2N7.MJJ"7&17I	S/MJ=20BI. *""=6"2J^I3O?T. B5"0*M.2N76IOI/Y7M"2&4+J ":6"6JJI7EWTR7N.J"220&I3S7Y.
J2*IC*"J/"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*IC*":.*"B 7USPO*M2I?G+TCO.5B0.MNJ"1&27I	S/MJ=21BI* :"""*M2IWR7TKUN*M.3
26IOI/Y7M3ISN+E7X"1622J^I3O?T. B5"0*M.4B0.I7K"0*M2IKI"=612J&I3S7Y"=&57N 3T	R+N7G2 SO+ECR3CGH3ROA7TKE2-?K7NSS7ASNE*M3S*I+MCS7GSEC7H.JB425.I*=/K"1*M2I[I*(7K3LWL+N	G.4^0.,B4.7R,"066.JB426NI3A3L2 GF3T3A. "(2)BI2 WZ3IC3E/N7EST7E* 3U2 3A
N.MRJ"0&7+IF3K&-3SGM/XR)*125.4V1.,F4"0*M.4B12IGC+LCL7FSA+ACL*(&7.MRJ"1&5+IF3IC.+"1*8&8.4"1.,F4.6R,"168.JF426NI7OSN7IWN3EBI* B"*"J 6MNJ2I7J3S^ 3EOTH*M2I[I2(OI/HF+.8"8.)F4.9R,*128.4&1.MRJ"1&87ISS+AB/K6)3IC6MNJ2I7J3S^ 3EOTH*M2I?G+TCO.4B2.MRJ"1&9/I7B"0*M.4B22
[I2(KI.)B4.5R,*225.4V0.MRJ"2&53I3S3E
N*=7K"1*M2I[I6(OI3L;E/GR)*420.4B3.,R4"0*M.4B32IGC+LCL3FE+L" .3V6")*M6IOI/Y7M"6656JJI7EWTR7N.JR420&I3F&(3SWL+N7G.1R)*520.4F4.,V4"0*M.4F46IOI/Y7M24BI2 C3AGR3CWT+RB-3K;O3SGT3NWT.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*IC3L;I3E2 3E
NT7H2J2I3C2=/CF+*IC3L;I3EN 3O;U7TKE"M&J3W	R+TE.4F,.1B52)OL.MFJ.1B52I?F3RGM+T^(*-B12	&/*4^,* &	"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(3L6.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*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