File GELG.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN2 WGL7G"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ?S3LWV* CA3G;E3EGR7LN 7YSS+ECM+OCF3S7I7USL3AWN7OOU2 	L3NGE3RV 3QGU3T
I+N;S2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3L^ 3E
L*(3R3A6,*,3N7EOP2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CR* B * 6 2 T3E6 6 	B* CN7MSA7RI2 [O2 	R7GSH2 GH+NCD3SSI+E;S* " 7DOE3T?R3YSE")*M+CB * B * B * B * B * B * B +OCN7RSE3U;R* CR3C;O3T	A+NCS3TWH2 ?S7LSU3I;O2 [O2 T3EV
3QGU3T?I+N;S2MNJ* B * B * B 2 F * B * B 6-R +HCE3MJ 3Y6 2 ?C3E[F3I	C7ESN2 GM3T	R+XB.2 R(7ESS7R	O+E	D2MNJ* B * B * B 2 6 * B * B 6-R +HCE3N7U7BKE2 [O6 GE7USA3I;O3S& 7NR +HCE7SOY3T7E".*M+CB * B * B * B +NB * B * B-3TWH6 WN3MWB3R> 7FJ 3IG3T" 3ASN2 	S+DCE3VOE
TKOS6.*JCC* B * B * B 6 CE+SB * 6 2 ;A2 ;I7PSU2 ?C7NSS7ASN2 W3IC6 OI6 OU+ECD+ACS3R3E3A	TV7E*JCC* B * B * B * B * B * B 2 ?T7LKE3AON3EZ +OCR7TOE3T> 3N2 7OOS2 [O2 	S3G	N3FOI3AONE6.*JCC* B * B * B 2 WI+RB * 6 2 WR3S3U3T;I3GV 3R?R7RB 3AGR7MSE+ECR3CSO+ECD+ACS3
3O7L
OS*M+CB * B * B * B * B * B * B 7IKE*=B0* B-+NCO7EKR+O3R2MNJ* B * B * B * B * B * B 2 & /E7R*-B12-: 7OJ 7EWS+LCT3BOE7AOU3E> 3F6 2 WL+SCS3TGH/NF 6 KO2MNJ* B * B * B * B * B * B * B * B * B 6 B 3I?V3TV 3L7E7ESN6 SA2 ;A3YV 3L7I3IGN3T?I7NN 7TCE2MNJ* B * B * B
* B * B * B * B * B * B 2 V 3QGU7LR /OB ",*M+CB * B * B * B * B * B * B 7IKE*=CK* B-7WKA3N;I3GR +UCE+TCO7POO3SKI+LCE7LOO3S> 7FN 3I;G3I	F"-*M+CB * B * B * B * B * B * B * B * B * B 3C;A+CCE3ISN3IGC3TSE6 SA2 3E3I	M7NSA3I;O6 SS+ECP/KF+",*M+CB * B * B * B * B
* B * B * B * B * B 3WWH+RCE7P[I+OCT3EWL3M;E7T^ +ACS7LOE7SR 3H;A6 KO2MNJ* B * B * B * B * B * B * B * B * B 2 V 3QGU7LR 7OR +HCE7ISN3E;R+ACL3T3O3EGR3NWC6 CE7SR 3IWMS*M+CB * B * B * B * B * B * B * B * B * B 7AOB7OWL3T3E3Y^ 3RGE7TOE3TV 3L7E7ESN2 [O2 GM3T	R
XF ".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 7ICN+UCT7MSA3ROI+ECS3RF +NCD3AF +RCE7AOS3UWM7DR 3OJ 7EN 7TKO+ECD3C3O3U;M7WOIE*M+CB * B * B * B +ICN3M:*2 WR+S;P* +M7MN 3UOC7EOS3IWV6 SS3OGR+GCE3LOO3A	T7OON2.> 7NJ 7EWTR7N*JCC* B * B * B 2 ?S7LSU3I;O2 GM3T	R
XJ 6 OI6 SS3OWR3DN 7OWL7M
N3IWS2 ?TO6.*JCC* B * B * B 2 T7EB 3ROO7EWD+RCE7G[I+ECS7ROE7USL3S& 7FR +HCE3N7U7BKE2 [O6 GE7USA3I;O3S6 6 OI2MNJ* B * B * B 2 ^ 3RGE7TKE2 T+ACN20F +NCD7P[I+OCT3EWL3M;E+TCS+ACT3A3L2 3E3I	M7NSA3I;O6 SS7EOP2MNJ* B * B * B 2 F +RCE3D[I7FKE7ESN6 KF+OCM*0B.7H
O3EWV7R^ 3A;R3I
N2 WI3R.=* B-+ICF7G[I+ECN"-*M+CB * B * B * B 3ISN3IGC7TOE2 ?P3S	S3BWL2 ?L+SCS+OCF3S
I3N[I3IGC3NWC2.& 3NN 3AWS2 [O* CA3W3EL*M+CB * B * B * B 3SGC3LSE2 GM3T	R3XF 2 ;A3DF 7PKP7OKP7ISA7ER 3OWL3R;A+CCE7EOP2,& /E7R3K6 +ACYB7E*JCC* B * B * B 2 ;I7TKE3PWR3TSE2 T+ACT7MSA7RI* CA7HOA2 T7EJ 3A/N* ;K2 ?N2 GW3R	N+NCGI7S*JCC* B * B * B 2 	G3V;E2 ;I2 GC
SCE/MF=".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 ?S7LSU3I;O6 OI2 ?D+NCE+BCY3MGE+NCS+OCF7GWA+S7S3E	L3M;I3A	T+OCN7WSIH*M+CB * B * B * B 3C7O3PWL+TCE7P[I
O	T+N;G2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3G3E7GJ(*,3A3M:,6,CE3S&,+E	R2MNJ2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/AF(6)J,*(&1*MBJ* B 2 & 3F6(.)N2.,N2",61"J7C*JCC* B 2 WS
AOR3HZ +OCR3GWR3AWT+SCT3EWL3M;E3T& 3N6 7AKT+ICXA*M* B * B17IKE"=60*JB * B 2 	P/VB=".*M* B * B /M7M3M6**MBJ* B 2 : 3M:="*7M*JB * B 2 ?D* B3/LF=2,7M*MBJ* B 6 R 3BF=+BS3A2(")6)*JB * B 2 [I2(KT2-	P/VN)*,23"2*M* B * B27P[I2=KT*MBJ* B 2 & "=7L*JB . N 2 ?C3N	T3N
U*MBJ* B 6 R /O7L7EOP2*	PV*M+CB * B 3A&(2)& 7SB 3I?V3TV 3L7E7ESN6.B +ICV3C;O3T	A+NCS3TWH2 KA3S3O3UWT2 GV3LWU2 [O* A+I:)2MNJ2MNJ2MNJ* B 6 N 7TKA3TV 3L7I3IGN3T?I3N2 7OCO*MBJ* B 2 2 /S7T"1*M* B * B +DCO*1B7/KF=",7M"J7C*JCC* B 2 WT+SCT+OCN3S;I3G3U3A	RT7Y*JB *
B 2 [I2(	P/VJ).3J,.3R,*MBJ* B 24& 3F&(+E	R.7V,",67*JB . V 2 [I2(	P7VR-+O	L.6Z,",67*JB . Z 2 WI3R.="-61*JB . ^ 2 	P/V7I*1>.3A&(")*M* B * B +J"=/IF-2)6/*MBJ* B 2 & *=7I3J6*"-7K*JB * B . 7J/JF+"-7K*JCC* B * /I3K& 7SJ +O7W3ISN+E3X* /J3KN 7OWL+M7N3ISN+ECX+OCF7
[I+OCT3EWL3M;ET*MC*M+CB * B 7P[I+OCT7R
O2 WR3DOU3T?I3NF +NCD7R
O2 ;I7TKE3CGH3NWG2 ;I2 	R7GSH2 GH+NCD3SSI7EJ *MBJ* B 2 R /O" . 7L3K:,3M6,*MBJ* B 2 2 3L2="+7I*JB * B 2 KT2=	P+V+I3R2(L6)*JB * B * R+L	L*=RL6)*JB . " * R/L6)T7B"J7C*JCC* B 6 OI2 3E3I	M7NSA3I;O2 WT3R	M7NSAE7D*JB * B 2 [I*(7K/M&).,"1.,"12MNJ2MNJ* B 2 N 7OWL+
CN7ISN3EOR3H;A+GCE+ICN7MSA7RI" 7A*JB . & 2 WL/N7D7LSS*+7MK*M* B * B +IF/JF).2F,.2F,"0*M* B *1B0/I7I3J6**MBJ* B 2 R /OF 212 6=OL3T2,3ESN*MBJ* B 6 R 3BF=*(	L*MBJ* B 2 2 3L2=2+	I*MBJ* B 2 F *(	L*=A+L	L*MBJ. F 21F 2(3L6)R=B*MC*M+CB * B 7R
O2 ;I7TKE3CGH3NWG2 ;A7DB 3I?V7TJ +OCW3RSE7USC3I;O2 ;I2 GM3T	R3XF *MBJ. F 22R /OF 232 6=OL3T6,3M6,*MBJ* B 2 2 3L2="+7I*JB * B 2 KT2=	P+V+I3A2(L6)*JB * B * A+L	L*=AL6)*JB . N1* A/L6)T7B"J7C*JCC* B 2 GS+VCE3C3O3U;M2 ;I7TKE3CGH3NWG2 ;I7FKO7MSA3I;O*MBJ* B 2 F 
(OL/T6)J*MC*M+CB * B 3EWL3M;E7TJ 7EWD3C	T+OCN3ASN2 WN+XCT7P[I+OCT3SGE3RC*MBJ* B 6 B /I7V"06.*JB * B 6 OL3T2=+S/T"1*M* B * B /JB=*MBJ* B 2 R /OF 26& 3I2=+S3T3L;ED*M* B * B 7P[I+I6=3A&(I6)*JB * B 6 OI3T&=3I6+*MBJ* B 2 * *=/J"1*M* B * B +DCO*1B53L&=+S3T+M3MM
M* B * B /L7L3L*-*MBJ* B 2 F *(	L*=A+L.)7P[I3IF*2(3L")*M* B * B /T7B7AOB*(A+L&)*MBJ* B 2 & 7FR(7BB-+I	V*125*125"164*JB . R12 	P7VR=B*M* B * B 3I2=*MBJ. F 25N 7OSN7IWNE*M* B * B +DCO*1B63L.=2,7N",7M*JB * B 2 3L*=/LJ*M* B *1B63R2(/L6)3R2(+L.)7P[I7IJ**(	L*MB
. F 272 /S7T7LSS"+7M*JCC* B 2 ;E3D> 3FV 3L7I3IGN3T?I3N2 7OCO2MNJ2MNJ2MNJ* B 2 J 3A/C6 WS7BSS7IWT3T?I3NF +NCD3BOA3K& 3NWT3RC3A
NE*M* B *1B8+IF/MF-.)N2.,J2.,&1*MBJ. F 29& /S7T+M/MM*M* B * B 7LSS*=/M"1*M* B * B +DCO*2B1/IJ=",7M*JB * B 2 	I6=OL3T&-*MBJ* B 2 & /S7T7ISS6-OLT*M* B * B 3L&=+S7TM*M* B * B 3LF=*(	L.+V.*MBJ* B 2 R /OJ 21* 2=	I2,7N",7M*JB * B 2 KT*=RJ6)*JB * B 2 3L"=7J*JB *
B 2 ?D. B2. 7K7ISS2,7M",7M*JB * B 2 3L2=3L"+61*JB . B22 KT2=KT*-A+K*)3R2(L6)*JB * B . 7K3J2+*MBJ* B 6 J *(	J*=RK6)*JB . F2* R/K6)T7B*JB . J22 WR7TKUN*MC*MC*M+CB * B 7EKR+OCR7RSE3U;R*MBJ. J 23& /E7R"-61*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"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